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DISMOU.SRCJDI :832; (1). 
YDENT DENT VAGE BUI S334) 


MODULE DISMOU ( 


BEGIN 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


te THIS i err. s.. FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
:® INCLUSION OF THe ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
!* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTW WARE IS HEREBY 
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ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:¢ sepokat ihe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
.@ J 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:# SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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ge yi 
9 FACILITY: DISMOUNT Utility Structure Level 1 
5 i ABSTRACT: 
, 0 This is the main routine of the DISMOUNT command. 
+ 
4 ' , ENVIRONMENT: 
41 1 STARLET operating system, including privileged system services 
4g § and internal exec routines. 
4 
44 4 ee 
re 5 
5 $ AUTHOR: Andrew C. Goldstein, CREATION DATE: 28-Oct-1977 14:12 


i MODIFIED BY: 


v03-016 HHOO3S Hai Huang 10-Jul-1984 
Fix truncation errors. 


v03-015 HH0027 Hei uang 26-Jun-1984 
Prevent race condition between two simultaneous dismounts 
on the same volume, 
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i8-s2 1984 23:39: AX-11 Bliss-32 V4.0-74 Page D 
1278 08- 1 3b $3:35:03 DISMOU.SRCJDISMOU.B32; . af V 
VO3=014 MHB0154 Mark Branhal | 27-Apr-1984 | 
Correct NSASB_ARG_FLAG setting for multiple audits enabled. 
v03-013 LMP0229 L. Mark Pilant 12-Apr-1984 12:24 
Remove references to the CHIP block. 
v03-012 HHO014 10-Apr-1984 


Hai “re 
Synchronize SGETOVIW on MOUNT_EFN. 


vO3-011 HHOO13 Hai Huang 09-Apr-1984 
Use LNMSC_MAXDEPTH to represent maximum number of times to 
recursively translate a logical name. 


v03-010 HHO009 Hai Huang 28-Mar-1984 
Add security auditing support. 
v03-009 LMP0221 L. Mark Pilant, 26-Mar-1984 16:27 
Change the device owner location to the ORB from the UCB. 
v03-008 HHO0007 Hai Huang 22-Mar-1984 
Add cluster-wide group volume support. 
v03-007 HHOOO 28-Feb-1984 


4 Hai Huang 
Add cluster-wide mount support. 


V03-006 HH0006 Hai iuans 05-Mar-1984 
Fix bug introduced by HH0003 when dismounting a 
foreign magtape. 


v03-005 HHO003 Hai Huang 07-Feb-1984 
Add forced dismount support. 


v03-004 HHO002 Hai Huang 23-Jan-1984 
Add job-wide mount support. 
v03-003 RASO168 Ron Schaefer 12-Jul-1983 
Interlock the logical name mutex when interogating 
MTLS$L_LOGNAME . | 
VO3-002 DMW4051 DMWalp 
Intergration of new logical name structures 
v03-001 $TJ0240 Steven T. Jeffreys 23-Mar-1982 
Use system routines to check descriptors. 
v02-010 $1J0231 Steven T. Jeffreys, 02-Mar-1982 
Copy buffer descriptor to internal storage before probing. 
v02-009 $1TJ0227 Steven T. Jeffreys, 17-Feb-1982 


Fix incorrect probe of the user-specified device name. 
Also fix typos in update packet. 


v02-008 $1J0176 Steven T. Jeffreys. 07-Jan-1981 
Set BUGCHECK and EXQUOTA privileges for the user, and 
clear them when we are done with them. 


20-Jun-1983 
V02-007 ACG0248 Andrew C. Goldstein, 31-Dec-1981 13:14 
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14-Se DISMOU. SRC DEMoO bse, (1) 
Interlock mounted volume List with 1/0 database mutex 
v02-006 $TJ0075 Steven T. Jeffrey 24-Jul-1981 


Liberal rewrite to convert the existing dismount code 
to @ system service. 


v02-005 PCG0001 e €. George 03-Feb-1981 10:00 
Change MOUNTMSG tne Be to DISMOUMSG. 

v02-004 ACG0181 Andrew C. Goldstein, 9-0ct-1980 15:59 
Fix cross facility source reference 

x0103 ACG0072 Andrew C. Goldstein, 15-Oct-1979 16:21 
Check primary and ey RR. device characteristics 

x0102 ACG0025 Andrew C. Goldstein, ‘=-Mar-1979 21:03 

Fix magtape testing code 

x0101 ACG0003 Andrew C. Goldstein, 10-Jan-1979 20:02 

Add multi-volume disk support 

x0100 ACG0001 Andrew C. Gol 4-0ct-1978 13:47 


Previous revision history cad ¢ o fb! Saou" éRc DISMOUNT.REV 


Pies sitone) L18.L32°; 
LIBS:MOUDEF .B352'; 
LIBDS: CVMSL iB, 08).D1SMOUMSG. B32"; 


ROUTINE 

SYSS$DISMOU, ! main preeree 

MAKE _DISMOUNT, ! kernel mode routine 

T LOG ° ' recursive logical name translator 

SEARCH _MOUNT, ' find MTL entry 

SETUP_ATL, ' set up local MTL database 

MOVE _ATL, ' set up MTL database for a volume set 

FIND MTL ' set ye MTL database for a volume 

CHECR PRiv, ' privilege check routine 

DISMOONT_CLUSTER ' cluster-wide dismount routine 

DI SMOUNT~ENCIPHER, ' create a cluster-dismount packet 

DISMOUNT AUDIT : NOVALUE, ' security auditin 

LABEL_LERGTH; ! return the length of a Label 

CLUSTER_DEVICE; ! global area to hold cluster device 
! characterstic bit 


Define the CODE psect so that the generated code has PIC and SHR attributes. 


ee ee a a a ed a ed nd od = 
ee ee a em cc a a ee a a ee ed ed ad od 
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CODE = ZSDISMOUNT (PIC,SHARE); 
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ise -1984 23:39: 
12-8081 Oke $3:30:03 
GLOBAL ROUTINE SYSSDISMOU (DEVNAI!, FLAGS) = 
'e¢ 
' 
' FUNCTIONAL DESCRIPTION: 
This is the main routine of the DISMOUNT command. 
INPUT PARAMETERS: 
DEVNAM : Address of a device name descriptor. 
FLAGS : A longword bit mask. 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 


assorted status values 


SIDE EFFECTS: 
volume(s) dismounted, device data base updated 


BEGIN 


AX-11 Bliss-32 V4.0-74 
DISMOU.SRCJDISMOU.B32; 


i allocate plits in the Z$DISMOUNT psect to avoid truncation error when 


‘ 
i 
i 
: 
PSECT 


! Linking mountshr. 
PLIT = Z$DISMOUNT; 
LINKAGE 
L_PDESC = JSB (REGISTER=1; BESISTERST. REGISTER=2): 
NOPRESERVE (3) 
NOTUSED (4,5,6,7,8,9,10,11); 


EXTERNAL ROUTINE 
EXESPROBER_DSC : L_PDESC ADDRESSING_MODE (GENERAL); 


LOCAL 
LENGTH : LONG, ! Output from EXESPROBER_DSC 
ADDRESS : LONG ! Output from EXESPROBER_DSC 
DEV_NAME : BBLOCK COSCSK_$_BLN), 
USER_PRIVS : BBLOCK i” stor e for initial user privs 
DISMOUNT_PRIVS : BBLOCK . |! privileges needed for $015 
CHANNEL : LONG ! channel number for 1/0 
PHYS_NAME : BBLOCK COSC$K_$_BLNJ, 
: Coace lotor of physical device name 
NAME _BUFFER : VECTOR CNAMEBUF_LEN, B ie) 
} string butfer for physical device name 
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STATUS ' system service status 
LOCK_Sfatus : VECTOR C2, LONG] 

lock stot s block 
DMTLCKNAM_BUF TOR Cwaneput LEN 


(*DMTS", "REP NAMEBUF_LEN=4 OF (' '))), 
DMT resource name Buffer 


TAL Cee ut BUF), 
DMT resource name descriptor 
ITMLST : BBLOCK C(1#12) + 4) INITIAL 


: Item: Allocation device name 


VEC 
INITIAL 
DMTLCKNAM_DSC : VECTOR 
INIT 


,LONG (DATLCKNAM_ OSC), 
| Item List stopper 
“LONG (0)); 
' Probe the device descriptor and the string it describes for read access. 
The string descriptor is copied to DEV_NAME for future reference. 
if NOT (STATUS = EXESPROBER_DSC (.DEVNAM; LENGTH, ADDRESS)) 
RETURN (.STATUS) 
V_NAME (DSC$W_L ENGtH) = = ,LENGTH; 
DEV_-NAME [DSC$B_ =bivee re 3 
VINAME CDSCSA~ POINTER]= . ADDRESS; 
Set up the physical device name descriptor. 


PHYS_NAME pscee cL Assi = 0; ! set up physical device name descriptor 
PHYS NAME LDSC$B_DTYPE 2 
PHYS-NAME(DSC$W_LENGTH) = NAMEBUF_LEN; 

S_NAME DSCSA_ POINTER) = NAME _BUFFER; 


' Translate the logical name and then assign a channel to the device. 

! The channel is needed for two ,reocens: first, the device UCB address 

! is needed, and it can poe hg be gotten once a channel has been assigned 
' to the device, and second, having a channel assigned to the device will 
act as an interlock, and will prevent premature deallocation of the v(B. 


ANNEL = 0; 
NOT (STATUS = TRAN_LOGNAME (DEV_NAME, PHYS_NAMECDSC$W_LENGTH))) 


H 
F 
HEN 
RETURN, « STATUS 
IF NOT (STATUS = ASSIGN (CHAN = CHANNEL, DEVNAM = PHYS_NAMECDSC$W_LENGTH))) 


EN 
RETURN .STATUS; 


C 
I 
T 


ee 
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Take out the DMT$ interlock on this device to prevent race condition 
between simultaneous dismounts on the same volume. 


99 Give the user the necessary privileges and dismount the volume. 
9 . 
38 Bb] rout Prive = 0; 
94 DISMOUNT_PRIVS+4 = 9 
95 DISMOUNT_PRIVS ERY V.BUGCHK] = 1; ' Grant BUGCHECK privilege 
38 BI aROUNT PRIVS LPRV$V_EAQUOTA) = 1; ' Grant EXQUOTA privilege 
, SETPRV TENBFLG=1, PRUADR=DISMOUNT_PRIVS, PRVPRV=USER_PRIVS); 
3 
i 
: 


wr 


3838 


uw 
folelelelelolelelelelolelel olelejlelolo) 


P 0904 SGETDVIW ¢ CHAN = ,CHANNEL, ' Get the full device name 
P 090 ITMLST = ITMLST 

4 EFN = MOUNT_EFN ); 

8 DMTLCKNAM_DSC [0] = .DMTLCKNAM_DSC [0] + 4; ' Add in "DMTS'' prefix 
P SENQW ( LKMODE = LCKSK_EXMODE, ' Take out the DMT$ interlock 
p LKSB = LOCK_STATUS, 
p FLAGS = LCKSA_SYSTEM 
P RESNAM = DMTLCRNAM_DSC, 

EFN = TLEFN” ); 


] 
Go dismount the volume. 


CSOOOODOOOOO 
da 


STATUS = MAKE_DISMOUNT (.FLAGS, .CHANNEL); 


' 
Dequveue the DMT interlock. 


pole lo jo jalejlejlalelelelelelolelolojlq) 
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IF ( .LOCK_STATUS (1) NEQ O ) ' Release the DMT$ interlock 
$DEQ ( LKID = .LOCK_STATUS [1] ); 


' 
! If the Gloneyns was successful, send this dismount request cluster-wide 
when appropriate. 
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IF .STATUS THEN 
STATUS = DISMOUNT_CLUSTER (PHYS_NAME, .FLAGS); ! Do cluster-wide dismount 
' with the physical device name 


! Revoke whatever special privileges were 
granted, deassign the channel, and exit. 
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SETPRV (ENBFLG=0, PRVADR=DISMOUNT PRIVS); ' Revoke granted privileges 
SETPRV (ENBFLG=1, PRVADR=USER_PRIQS); ! Restore old privileges 
SDASSGN (CHAN = . CHANNEL); 


ee 


RETURN ,STATUS; 
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6 ll 
3 

DLSMDY, 1$-sep-1964 25:59:99 yarcts OLinn-82 4402742 rave 2 
: } $3c6 f END; ! end of routine DISMNT_COMMAND 


-TITLE DISMO 
- IDENT Rvb6-000\ 


-PSECT ZSDISMOUNT,NOWRT, SHR, PIC,2 


P.AAA: .AS \DMTS$\ 
AS 
5 . 
4A 


. se 
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PROMI oO 


00000 CLUSTER_DEVICE:: 
-BLKB 


4 
EXESPROBER_DSC, SYSSASSIGN 
*EXTRN SYSSSETPRV SYSSGETDVIW 
; SYSSENQW, SYSS$DEQ 
“EXTRN SYSSDASSGN 


-PSECT ZSDISMOUNT,NOWRT, SHR, PIC.2 
007C 00000 -ENTRY SYSSDISMOU, Save R2,R3,R4,R5,R6 ; 0776 


wai |e 


| 
| 
| 
| 
| 
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a. =1984 239: AX-11 Bliss-32 V4.0-74 Pa 8 
4-5 ats 1 13:38:88 DISMOU.SRCJDISMOU.B32; 9 02) 
ge oooopnges oP E MOVAS ai etery ” 
BE AF 5S MOVC Fh} , P.AAA, DMTLCKNAM_BUF ; 0837 
16 AE D4 CLRL. DMTLCKNAM_ ; 
18 AE 1c OA MOV OMTLCKNAM-BUF, DMTLCKNAM_DSC+4 : 
AF 1 MOVCS #16, P. fMLST : g58 
AE 20 AE MOVAB DMTLCKNAM_BUF¢4, ITMLST+4 : iy 
C AF 4 AE MOVAB DMTLCKNAM"DSC, ITMLST+8 + 083 
5 04 AC D MOVL DEVNAM, R : 0859. 
, 000000006 ' JB EXESPROBER_DSC : | 
3 5 BLBC = STATUS, ; 
7c OE MOVZWL LENGTH, DEV_NAME ; 0862 
FC OAD : d MOVL Ap RESS, DEV_NAME+4 ; 0 
64 AE 3 MOVL % PHYS NAPE ; 08 ¢) 
68 AE 44 AE 9E MOVAB NAME BUFFER, PHYS_NAME+4 F 087 
6E ps CLRL «CHANNEL ; 882 | 
64 AE OF PUSHAB PHYS_NAME ; 08835) 
F8 AD OOF PUSHAB DEV_RAME ; | 
0000v cf F CALLS #2,” TRAN LOGNAME : 
3 f pret | StArose'? tee 
¢ i CLRQ = =( SP) > 0886. 
08 AE OF PUSHAB CHANNEL : | 
0 AE OF PUSHAB PHYS_NAME ; 
000000006 4 F CALLS #4, SYSSASSIGN F 
D MOVL RO, STATUS ; | 
0 BLBS status, $ ; | 
0095 31 BRW & ; | 
6¢ AE 7C CLROQ DI SROUNT PRIVS : 0893. 
6E AE 88 8F 38 BISB2 #136, DISMOUNT_PRIVS+2 + 0896 
4 AE OF PUSHAB USER. PRIVS : 0897 
7E p4 CLRL 0s = (SP ; 
74 AE OF PUSHAB DISMOUNT _PRIVS ; 
66 04 Pe atte: ms SYSSSETPRV : | 
— 7C CLRO. 20 = ( §P) > 0906 | 
7E 7 cLRQ -(SP) ; 
16 AE OF USHAB ITMLST : 
7E D4 CLRL = = (SP) F 
oF pst gute Full 
P+ | 
000000006 00 8 F CALLS #8, SYSSGETDVIW ; 
14 AE 4 ADDL2 #4. DMTLCKNAM_DSC > 0908 
— 7 cLRo. = § : 0914. 
7E 7 CLRQ = =( SP) : 
7E 7 CLRQ = = (SP) : 
2c AF i PUSHAB OMTLCKNAM_DSC : 
5¢ AE oF PUSHAB L CK_STATUS 
00000006 00 i FB CALLS #11, SYSSENQY Saath, 
, -" —E 0D PUSHL CHANNEL : 0920. 
oo0ov cr as 05 PB ates np hat DI SMOUNT 
v ‘ ; 
gf g 8 MOVL RO. STATOS 


— 


; Routine Size: 273 bytes, 


— 


000000006 e 


0000v gf 


66 


66 
000000006 9° 


Routine 3ase: 


3 
ibes2 -1984 23:39: AX-11 Bliss-32 V4.0-74 
V2rgee=] Bt 3:58:88 | at SAS Ohta Peat osoe9 
40 A ; cc TSTL _ock STATUS +4 
CF BE QL 
C 0000 CLR =(SP) 
d4 0000 CLRL 0s = (SP) 
™ o PB 8300p Phere | bee“ eesspea’” 
2 £8 DF 3$ BLBC STATUS, re} 
a soe 
; FB ¢ CALLS ae BISMOUNT_CLUSTER 
VL RO, STATUS 
f C OOOFO 4$ CLRO 20 = §p 
7% A oF PUSHAB D1 SMOUNT _PRIVS 
04 FB OOOF CALLS #4, SYSSSETPRV 
E 7C OOOFA CLRO Oe 
eM tp Bore Bune gyre 
A 
i} FB 1 CALLS #1, SYSSDASSGN 
3D 9100 5$ MOVL STATUS, RO 
04 00110 RET 


Z$DISMOUNT + 0030 
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area. 
FLAGS : BBLOCK; 
BUILTIN 
REMQUE ; 
LINKAGE 
10C_DISMOUNT 
NOPRESERVE (2); 
LITERAL 
DEVCHAR_SIZE = 4; ! Length (in 
LOCAL 
DEVICE_CHAR : BBLOCK COEVCHAR ~p 176). Ses 
) 
: DEVICE_CHAR2 : BBLOCK CDEVCHAR_ Ei ‘ 
or 
| § DEVCHAR_DESC : BBLOCK roses. § Bt 8 
1 scFiptor 
1004 DEVCHAR_DESC2 : BBLOCK CODSCSK -§ _BLN 
1005 '"descriptor 


ET 


Page RB 


annel nuaber "Se the channel assigned to the device. 


Volume dismounted, logical name and MTL entry deleted. 
The cluster device characteristic bit is save in global 


re: 9 ROUTINE MAKE_DISMOUNT (FLAGS, CHANNEL) = 
if gh | in 
48 3 ; FUNCTIONAL DESCRIPTION: 
0 955 i this routine does the kernel mode validation and initial setup 
M § of the dismount operation. 
33 i 
4 9 § i INPUT PARAMETERS: 
5 44 ‘ FLAGS : A Longword bit mas 
8 Be CHANNEL : The ¢ 
58 305 i IMPLICIT INPUTS: 
9 964 ; NONE. 
61 966 i OUTPUT PARAMETERS: 
8 0968 1 | — 
64 369 i IMPLICIT OUTPUTS: 
65 970 ; NONE 
97¢ i ROUTINE VALUE: 
4 if successful, various statuses if not 
975 SIDE EFFECTS: 
i 
i 
i 
i 


! flag bits for dismount options 
! remove an item from a queue 


= JSB (REG iste = 6, REGISTER = 3, REGISTER = 4) : 


bytes) of device characteristics 


device characteristics 

sec. device characteristics 

for device characteristics 

for sec. device characteristics 
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Mbt OHO 12-80 8-} BRE 13:30:03 DISMOU.SRCIDI mou B32: . Rt 
: a0 ! \ Pesta {tee ig 2 Ha that device is magtape 
3; 4 : 1 PRIVATE i fle Bieee ng p orivete. mount found 

> 4 1 RVT_LENGTH, i number of entries in 

; 605 1 LIST_HEAD : REF VECTOR, ! pointer to current ca list head 

s 6 1 CcB ~ : REF BBLOCK, i CCB of channel (points to UCB) 

; 40 1 ucB : REF BBLOCK, i UCB of device 

; 408 1 vcB : REF BBLOCK, i vce of device 

; 409 1 RVT : REF BBLOCK, i address of rotative volume table 

: $610 1 MTL : REF BBLOCK, i address of found MTL ent ry 

$ $13 : STATUS; i status of various By rie, 

$ “1g 1 EXTERNAL 

3 616 1 CTLSGL_CCBBASE : ADDRESSING MODE ager 

3; 615 1 Rete ess of aS? table 

3 oi$ ! SCHSGL_CURPCB : REF BBLOCK ADDRE $$1NG MOD 00 (GEN iy ph 

3 ou 

; 418 1 CTLSGL_PHD : REF BBLOCK noone SSN <fob (GENERAL), 

3; 419 1 address of our bees** header 

; 420 1 EXESGL_SYSUCB : REF BBLOCK noone S1N6 =RODE (GEN 

3; $21 1 Ldtztse device UCB 

. ~@ ; 1 CTL$GQ_MOUNTLST : VECTOR ADDRESSING RODE (GENE 

3; «6 1 wagere t oo list head 

: 626 1 1OC$GQ_MOUNTLST : VECTOR ADDRESSING. MODE (GENERAL 

3 2 5 ' ' system Suomen” ~ ae Listhead 

3; 4 3 1 EXTERNAL ROUTINE 

3; 428 1 LOCK H lock f/9 geyepee 

: 429 1 UNLOCK 1068 unlock 1/0 

3; 4350 1 10€$D1 SMOUNT : 10C_DISMOUNT ADDRESSING spook CBENERAL 

3 $e; : ! system dismount routine 

3; 4 ; 1 

3; 4 1 ' Get the device characteristics and make sure it can be dismounted at all. 

; 435 1 ' j.e., that it is file oriented, etc. A mismatch between primary and 

3; 6 1 ' secondary eevtes haracteristics indicates a spooled device or y sonething 

: : 7 : else strange - reject it if so. 

> 439 1 

; 440 1 DEVCHAR_DESC pscse chase, = 8: ! set up primary characteristics buffer descriptor 
3: 661 1 DEVCHAR_DESCLDOSC$B8_DTYPE = 

t 46 1 DEVCHAR~DESCCDSCS$W_LENGTH) = DEVCHAR SIE; 

3 o47 ' DEVCHAR_DESCLOSCSA_POINTER) = DEVICE_CHA 

3 6445 1 DEVCHAR_DESC dscee cL Ass, = 0; ! set up secondary characteristics buffer descriptor 
: 46 1 DEVCHAR_DESC2LDSCSB_DTYPE = 

3 46 1 DE VCHAR~DESC pecgu-peweli = DEVCHAR_SIZE; 

3 er ' DEVCHAR_DESC2LDSCSA_POINTER) = DEVICE CHAR; 

; $30 ' SGETCHN (CHAN = ,CHANNEL, PRIBUF = DEVCHAR_DESC, SCDBUF = DEVCHAR_DESC2); 

; 6 1 If cuenee CDE YCHAR, HA gyPENI CE. CHAR, DEVCHAR_SIZE, DEVICE_CHAR2, 0) 

: 45 1 OR NO evice ef 

; 436 THEN RETURN CSs$"nG Ant OF VEY 00 

3; 6 § 1 co T DEVICE cuancoe vey AVL) 

: 465 1 HEN RETURN (SS$_DEVOFFLIRE); 
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NOT. ;DEVICE CHARCDEVSY MNT] OR . DEVICE. CHARCDEVSV, DMT] 
N RETURN (SS$_ 


If 
THE DEVNOTMOONT); 


' Get the UCB and VCB ogéresees for the channel. if this is a volume set also 
' get the RVT address; for a disk votuae set we will iterate for all volumes 

: erev iced awl was not specified). First we search the process mounted volume 
' List for entries of the volume; if found, we remove them and proceed with the 
! dismount. If none were found, we Mad | the system mounted volume list for 
oe /GROUP or /SYSTEM. Dismounting these requires the appropriate 
! privilege. 


CCB = .CTLSGL ¢CBBAS = . CHANNEL; 

ucB = .CCBCCCB$t_ucB); 

vCB = ,UCBLUCBSL_VCB); 

PRIVATE = 

RVT = 0; 

RVT_LENGTH = 0; 

MAGTAPE = .BBLOCK CuceCucest DEVCHAR DEVSV $00}; 

CLUSTER_DEVICE = .BBLOCK CuCB UCBSL_BEVCHAR2 r dév$v_ciu); ! Save cluster device characteristic bit 


IF NOT .BBLOCK CUCBCUCBSL_DEVCHAR], DEVSV FOR] 
AND (C.VCBEVCBSH_RVN NEG"O AND NOf .FLAGS COMT$V_UNITJ) 


BEGIN 
RVT = .VCBCVCBSL_RVT): 
RVT LENGTH = .RVTCRVT$B_NVOLS); 


STATUS = CHECK_PRIV (.UCB, .FLAGS); 
If NOT .STATUS THEN RETURN (.STATUS); 


check rau ttoge 
if failed, return immediately 


SETUP_MTL (.UCB,.FLAGS); ! set up local mounted volume database 
LIST_HEAD = CTL$GQ_MOUNTLST(O); ! point to local mounted volume database 
WHILE 1 DO ! loop forever 
BEGIN 
saanag A 2 10 1 DO ' Loop for process, then system mount List 

J = Q; 

00 ! Loop for all entries in RVT 

FoR 


VT _NEQ 0 
THEN UCB = .VECTOR CRVTICRVTSL_UCBLST), .J); 
1f UCB NEO 0 
THEN 
BEGIN 


<o 


3 
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CB = ,UCBCUCBSL_VCB); 


Note: With job-wide mount support, the check below is no longer 
appropriate. With job-wide mount, any process in the process 
le can mount/dismount the volume. In a private mount, the 
device is allocated to the parent process, and a subprocess 
should be able to dismount the volume. 


If .BBLO kCUCBLUCBSL DEVCHARI, DEVSY ALLY 
AND .UCBCUCBSL_PID) REQ .SCHSGL_CURPCBCPCBSL_PID) 
THEN RETURN (SS$_DEVALLOC); 


1008 (); 
= SEARCH_MOUNT (.LIST_HEAD, .UCB); 
aif" NEQ 0 


WN —OOONOVES WN ODONOu 


IF NOT .K ! if first pass (private List) 
THEN 


w 


BEGIN 
PRIVATE = 1; 
END 


aw 


ELSE ! if second pass (system List) 
BEGIN 


Clear the /SYSTEM or /GROUP bits to correctly show residual /SHARE mounts. 


VCBLVCB$V_GROUP) = 0; 
vce VCBSV"SYSTEM) = 6; 


BPP 


DONO NEV) OOOO UE wt 00 


! Having possed all the checks, take the MTL entry out of the List and call 
the system dismount routine with it. 


REMQUE (.MTL, MTL); | 
UNLOCK _10DB (); 

DISMOURT_AUDIT (.FLAGS, .CHANNEL, .UCB, .MTL); 

1OCSDISMOUNT (.MTL, .FLAGSCOMTSV_NOUNLOADJ, .SCHSGL_CURPCB); 


! On RVN 1 of a disk volume set, there are two MIL entries. Find and process 
the second. 


PADD PPP BB BBE EE AIAN III onrnnnononononeng 


o 
QS ALT SSeS nF st OOO NONE OOOO OAPI OO DOD OO Cee 


PPP PAAMVINN 


If 4 EOL 0 

AND’ (.RVT NEQ 0 OR .FLAGSCOMT$V_UNIT)) 

AND NOT .MAGTAPE 

BEGIN 

LOCK_1008 () 

RTL = SEARCH 
F MTL NEG 


ghount (,LIST_WEAD, .UCB); 
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ae3 
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04000 HESeoct9Ue GH:HB:83  YBtsAdUPLAeHa Feat: Balt Spe 


3 $7. 1177 REMQUE (.MTL, MTL); 

.. or 117 vaore 1008 (); 

: Me oF 1OCSDISMOUNT (.MTL, «FLAGSCOMT$V_NOUNLOAD], .SCHSGL_CURPCB); 

: §7 1181 ELSE 

5s S 11 § UNLOCK_I00B (); 

; a 11 END; 

: 8ho ies > ~ 

: 1 11 § 7 ! If normal dismount, failure to find an MTL entry on the second pass is an error. 

: § i" 4 ! If a forced dismount, keep looping for more MTL entries. 

: 1 : 6 ELS 

3 5 1190 BEGIN 

3 1191 7 UNLOCK_10DB (); 
$ 1136 7 F .K AND NOT ,FLAGS COMT$V_ABORT] 
; 88 1193 f THEN RETURN (SS$_DEVNOTMOUNTY; | 
: 590 1195 6 ’ 

; $38 1138 ? We exit the RVT scan loop if this is magtape or a single disk volume. 

: §9 1198 6— 

; 394 1199 6 IF .MAGTAPE | 
3; 595 1 9 6 OR .RVT EQL O 
: 38 1201 6 THEN EXITLOOP; 

: 59 1 8 3 

3 rh ' $s END; ! end of UCB NEQ 0 condition 

; 600 1205 ; J=.d¢1; 

; 601 1 Be EN ! end of RVT scan loop 

; O06 ’ 4 ? UNTIL .J GEQU .RVT_LENGTH; 
3 604 1209 4 ! If any entries were found in the process mounted volume List, we are now 
; 605 : 9 2 ! done. If not, go back to try the whole volume set against the system List. 

; $0F 1 1g 4” 

: O38 ' \? ? r “ra! PRIVATE 

> 610 1215 BEGIN 

3 6611 1 16 IF .MAGTAPE 

3 oig ' : pee RETURN (SS$_DEVNOTMOUNT) ; 

> 614 1 1 4 ELSE 

; 615 1220 4 IF NOT .FLAGS COMTSV_ABORT) THEN EXITLOOP; ! If normal dismount, get out 

3 616 ; ; ! for forced dismount, keep looping 

; 61 1 4 

: eis : 3 4 LIST_HEAD = 10C$GQ_MOUNTLST(O); ! switch to system-wide mount List 

; . ' $ END; ! end of private/system scan loop 

:; 6 1 

; 624 1 j If NOT .FLAGS COMT$V_ABORT) ! If normal dismount, get out 

3 ° 4 ! eee EXITLOOP 

; 6 1 F .CTL$GQ_MOUNTLSTC1) EQL CTL$GQ_MOUNTLST(O) 

3; 678 1 § thet EXITLOOP; ' for forced dismount, if mount List 


18.56 -1984 AX-11 Bliss-32 V4.0-74 
OO Reto 14- Sep-1 38 93: 33 83 DISMOU.SRCJDISMOU B3oe4 
; 629 1234 ' is empty, exit while loo 
Be BEE, 23 : 
3 ? § } $ } Reinitialize critical variables for another iteration for forced dismount 
3; 654 1 § UCB = pCCOLCCOSLUCBI; ' reinitialize UCB address 
3 ° 5 ! 7 PRIVATE = 0; ! and privately mounted flag 
3 ° ? : tg LIST_HEAD = CTL$GQ_MOUNTLST(O); ! point to local mounted volume database 
; 639 1244 
; 640 1245 END; ! forever loop 
3 641 1 ré 
; 642 124 
3: 64 1248 RETURN 1; 
> 644 1249 
; 645 1250 END; ! end of routine MAKE_DISMOUNT 
-EXTRN CTLSGL_ CCBBASE senees pcyrrce 
"EXTRN CTL$GL De EXESG 
~EXTRN CTL $co- “MOUNT 
-EXTRN J0C$GQ “ROUNTLST 
~EXTRN LOCK 1008. 008 
-EXTRN IOCSBISM inte LO VSSGETCHN 
OFFC 00000 MAKE_DISMOUNT: 
. WORD Sexe R2,R3,R4,R5,R6,R7,RB,RI,RI0,R11 
5E 8 b6 690 SUBL2 
30 AE 4 MOVL #4, DEVCHAR_DESC 
4 AE 10 AE $099 MOVAB DEVICE_C CHAR, ay: HAR_DESC+4 
18 AE 04 000 MOVL #4, DEVCHA 
cS 14 AE 9E 0001 MOVAB DEVICE ET CHARD OO EUCHAR _DESC2+4 
18 AE 9F 0001 PUSHAB DEVCHAR_DESC2 
7E 4 QOOIA CLRL -(SP) 
28 AE SF QOOIC PUSHAB DEVCHAR_DESC 
7E D4 OOO1F CLRL -(SP) 
08 aC 0D 00021 PUSHL CHANNEL 
00000000G 00 05 FB 00024 CALLS #5, SYSS$GETC 
14 AE 10 Ae >} 00 B a DEVICE. CHAR. MDEVICE _CHAR2 
06 11 af Og § § BBS #6 DEVICE CHABST, 2s 
5 O1cc— BF ¢ , 1$ MOVZUL #460, R 
05 12 =A 2 £0 23 BBS m DEVICE CHARSE, 3$ 
5 84 «BF pA 4 MOVZBL #i$2, R 
03 12 AE 3 59 47 3$: DEVICE_CHAR+2, 5$ 
0134 31 0004C 4$: BRW 534 
8 \é A . 4F 5$: BBS DEVICE _CHAR+2 
08 AE 000000006 8 ac ¢ 34 SUBL3 CHANNEL CTLSGL *ttBBASE, CCB 
BE OD MOV 
4 Aad D V 55(Ute), vcB 
4 AE O CLAL 
58 D4 CLAL 
OC AE 04 68 CLRL RVT_LENGTH 
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AX-11 Bliss-32 V4.0-74 “¢ 
DISMOU.SRCJDISMOU.B32; 


ROUTINE TRAN_LOGNAME (LOG_NAME, RESULT) = 


'oe 


IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
$S$_NORMAL : The translation was a success 
S$S$_NONLOCAL : The device is not local to the host machine 
SS$_NOTRAN : The logical name did not translate 
SIDE EFFECTS: 
NONE 
BEGIN 
MAP 
LOG_ NAME : REF BBLOCK, ' Logical name descriptor 
RESOLT : REF BBLOCK; ! result string descriptor 
LOCAL 
NAME DESC : BBLOCK COSCSK - _BLN], ! descriptor of current logical name string 
STATOS, i sy em service status 
3 string search pointer 


the left of the colon (if any), also c 


FUNCTIONAL DESCRIPTION: 
This routine performs simple recursive logical name translation. 


CALLING SEQUENCE : 
TRAN_LOGNAME (ARG1, ARG2) 


INPUT PARAMETERS: 
ARG1: descriptor of logical name to translate 


IMPLICIT INPUTS: 
NONE 


OUTPUT PARAMETERS: 
ARG2: descriptor of result string buffer 
(first word receives length of result) 


We iterate on logical name translation until the service returns SSS$_NOTRAN. 
' Perform device name extraction by u using only the part of the logical name to 
ecking for Pode names. 


NAME _DESC DsCSu_L LENGTH) = -L0G NAME COSC SW LENGTH): ! get initial logical name 
ESCCDSCSA~POINTER) = .R RESULT DSCSA_POINTER); 
CHSCOPY (.L0G_NAME[DSCSW_LENG ! copy input to output 
LOG" NAMELDSCSA~ “BOINTERS, 
-RESULTCDSC$W_LENGTH), 
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-RESULTCDSCSA_POINTER) 
OM LNMSC -MAXDEPTH TO 1 DO 


HSFIND CH (. s NAME _DESCCOSCSW_LENGTH], .NAME_DESCCDSCS$A_POINTER], ':'); 
GI 

7 Hestiae DESCLDSCSA_ POINTER] LSSU .NAME_DESCCDSCS$W_LENGTH] = 1 
THEN RETURN is, NONL OG AL): 

Ane _DESCCD DSC w_CENGTH - .NAME_DESCCDSCSA_POINTER); 
IF CHSRCHAR (.NAME_DESCCDSCSA_POINTER]) EQL '_' 
THEN EXITLOOP 0; 


STATUS = STRNLOG (LOGNAM = NAME ~PESEEDSC EM LENGTH , 
= NAME- Peat DSC$W LENGTH . 
RSLBUF = RESUCT pst oy LERGTH ); 
IF .STATUS EQL SS$_NOTRAN THEN EXITLOOP’O; 
aes «STATUS § THER” RETURN (.STATUS); 


END 
THEN RETURN (SS$_NOTRAN) ; 


' Return the result Length. 
i The high-order word in the first longword of the result descriptor 
is zeroed to allow a more relaxed interpretation of the descriptor. 


RESULTCDOSCSB_DTYPE] = C; 
RESULTCDSC$B"CLASS ; 
RESULTCDSC SW LENGTH? = = NAME _DESCCOSC$W_LENGTH); 


RETURN SSS$_NORMAL ; 
END; ! end of routine TRAN_LOGNAME 


-EXTRN = SYSSTRNLOG 
007C 00000 bic cat > 


.WO Save R2,R3,R4,R5,R6 
5 SuBL2 sw 
04 At 5 MOVL 06 NAME, RO 
gf 60 8 mMOVe (ROY, NAME _DESC 
6 8 AC D MOVL RES R6 
04 ae 4 as p MOVL 4(R SNARE Desc 4 

00 4 8 mt 60 ¢ 13 MOVCS (RO), @4(ROJ (R6), @4(R6) 

52 A 00 0001 MOVL #10. N 
BE bE A 3A 1$: LOCC #58, NAME_DESC, @NAME_DESC+4 

; é BNEO 28 
D CLRL RR 


oun 
ao = 
ovo ' 


0 15-Sep-1984 23:39: AX-11 Bliss-32 V4.0-74 Page 20 
-Sep- :20: DISMOU.SRCJDISMOU.B32; (4) 
Poon ob0 127808- 1382 §3:38:93 I CiD1 358 ve 2 
53 51 p 9 28: MOVL RI, P ; 
F ¢ BEQL 84 ; 1315 
51 53 06 =A § SuBL 3 NAME DESC +4 P, RI + 1318 
g MOVZ2WL NAME-DESC, RO : 
d DECL RO : 
50 pI CMPL =o, RO F 
p : 8GEGU 3$ : 
SA3A BF CMPW 43)" #14906 ; 1319 
6 12 0004 BNEQ $ : 
50 O8FO = BF ¢ 44 MOVZWL #2288, RO + 1320 
E 51 4A 33: MOVW R11, NAME_DESC + 1321) 
SF HE 04 BE i 40 4$: CMPB © @NAME_DESC+4, #95 : 1334, 
ee BEQL 6 ; | 
—E 7¢ 000 CLRO 3—_-= (SP) > 1329. 
7E 04 0 6 CLRL = = (SP) ; 
56 po PUSHL R6 : 
10 AE OF O5A PUSHAB NAME_DESC ; 
14 AE 9F 00050 PUSHAB NAME ~DESC : 
000000006 00 8 FB 9060 CALLS HE SYSSTRNLOG 3 
4 DO 0006 MOVL RO, STATU ; 
00000629 =F 4 01 O6A CMPL STATUS, #1577 t 1330 
10 13 | BEQL 46s 4S ; 
4 34 E 7 BLBS STATUS, 5$ + 1331) 
0 4 BO ud: MOVL STATUS, RO : 
4 0007 RET ; | 
A3 52 FS O07, 5$: SOBGTR N, 1$ : 1312. 
50 0629 BF %3C 0007 MOV2WL #1577, RO + 1334 
04 008 RET ; | 
66 6 C 00083 6$: MOVZWL NAME_DESC, (R6) + 1343, 
50 1 pO 00086 MOVL #1, RO : 1345 
04 00089 RET : 1346 


; Routine Size: 138 bytes, Routine Base: Z$DISMOUNT + 0300 
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1h-8ep- 38 $3:30:08 {OTsmou-sRe DISMOU.832; 
®WOUTINE SEARCH_MOUNT (MTL_HEAD, UCB) = 
‘ee 
t 
i FUNCTIONAL DESCRIPTION: 
This routine searches the given mounted volume List for the entry 
representing the indicated UCB. 
CALLING SEQUENCE: 
SEARCH_MOUNT (ARG1, ARG2) 
INPUT PARAMETERS: 
ARG1: address of mounted volume List head 
ARG2: address of desired UCB 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 


address of entry or 0 
SIDE EFFECTS: 
NONE 


Slt et et ee oe ee te? te te te ee ee te ee ee ee 


BEGIN 

MAP 
MTL_HEAD : REF VECTOR, ! mounted volume List head 
ucB : REF BBLOCK; ! desired UCB 

LOCAL 


MTL : REF BBLOCK; ! List entry in question 
: Simply scan through the doubly Linked List, checking consistency as we go. 


MTL = .MTL_HEAD(O); 
UnTEE | ATL EQL MTL_HEADLO) DO 


IF .MTLCMTL$B_TYPE] NEQ DYNSC_MTL 
THEN Bub CHECR (NOTMTLMTL 

IF .MTLCAT 
MTL = .MTL 
END; 


FATAL, ‘Corrupted mounted volume List’); 
; L ye EQL .UCB THEN RETURN .MIL; 
MTCSL_MTLFLI; 


Pe ee Se eee Se Se Se ee ee 


pi. IeoSeo-190e 23:98:08 yAtetD 8 fn4=42 4.027 rage 
Ht 168s acl ! end of routine SEARCH_MOUNT 


-EXTRN BUGS_NOTMTLATL 


0000 00000 SEARCH_MOUNT: 
WORD Sa 


° ve not ag 3; 1347 

50 04 1) MOVL @MTL_HEAD, ATL 3 1394 

06 AC 9 18: CMPL TL, MTL_HEAD 3 1596 
A aS 3 

19 OA AO 9 CM (ATL), #25 3; 1398) 

04 #1 BEQL 2 é 

ne 1 BUGW : 3; 1399 

000¢ 1 eWORD < vee ro : 

08 AC OC =OCOA ? 16 2$ CMPL 1 : 1400. 
0 18 BEQL 4 3 

50 60 0D 10 MOVL (MTL), MTL 3 1401) 

ge 11 3 BRB 1$ : 1396. 

0 Be 3 3$: CLRL RO 3: 1404, 

4 00024 4$: RET 3; 1406 


; Routine Size: 37 bytes, Routine Base: 2Z$DISMOUNT + 038A 
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ROUTINE SETUP_MTL ( UCB, FLAGS ) = 


'¢ 


oS& 


FUNCTIONAL DESCRIPTION: 


This routine sets up a local mounted volume database by collecting 
— poorepr tate mount List entries (MTLs) from the system's mounted 
atabase. 


CALLING SEQUENCE: 
SETUP_MTL (ARG1, ARG2) 


INPUT PARAMETERS: 
ARG] : Address of the desired UCB 
ARG2 : A longword bit mask 


IMPLICIT INPUTS: 
NONE 


dt ee 
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tt 


WEWN —O OCOBNOVES WN —“OOONOUfun— 


OUTPUT PARAMETERS: 
NONE 


aie | VALUE : 


w 


SIDE EFFECTS: 

Appropriate MILs in the system are removed from the system's 

paw’ database and inserted into the local mounted volume 
atabase. 


i Re te te et et Te 


: REF BBLOCK, 
BBLOCK; 


PIX ' process index counter 
LIST_HEAD REF BBLOCK, ' local mount listhead 
ATL REF BBLOCK, ' variable for MT 

NULL : REF BBLOCK, ' PCB of the null process 
PCB REF BBLOCK, ' variable for PCB 

J18 REF BBLOCK; ' variable for JIB 


} vector 
SCHSGL_CURPCB : REF BBLOCK ADDRESSING_MODE (GENERAL), 

! address of current PCB 
SCHSGL_MAXPIX : ADDRESSING_MODE (GENERAL); 

! max number of processes 


PAPAIN ES BEELER EE 


esteem. 
SCHSGL_PCBVEC : REF VECTOR ADDRESSING pope (GENERAL), 
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until we give up the 1/0 database mutex. 


SET_ IPL (IPLS_ASTDEL); H lower IPL to ASTDEL since we 
still have the 1/0 database mutex 


Lore 1008 
ee UNLOCK _1068; 
If «FLAGS COMT$V_ABORT) 
7 HEN ! for dismount /abort 
i BEGIN 
rs Set up the local MTL database | 
7 fut » sSCHEGL -PCBVEC (0J; ' remeber pcb of she null process 
75 4 1008 ( ' Lock 1/0 databas 
ue i. NCR’ PIX FROA 1 TO .SCHSGL_MAXPIX ! Look thru each process in system 
A BEGIN 
SET_IPL (IPLS_SYNCH); ! raise IPL 
IF TC PCB = .SCHSGL_PCBVEC C.PIX] ) NEQ .NULL ) ! non-null process | 
AND ( .PCB CPCBSL_OQNER] EQL 0 ) ! master process 
8 AND (( JIB = PCB CPCBS$L_JIB] ) NEQ 0 ) ! forget the swapper 
we Sse CJIBSL_MTLBLJ REQ JIB CJUIBSL_MTLFL] ) ! something in mountlist 
BEGIN 
i Note that at this point, we have a JIB with at least one volume | 
! mounted. Lower the IPL to gs tors since MILs are located in 
! paged-pool. We can perety 4 this because the existence of 
; an MIL entry means that th rocess will not be deleted 
i | 


LIST_HEAD = JIB CJIBSL anmmurd: 
dO oop until “s have all MTLs for 


w loo 
MTL = MOVE wt? ( .LIST “Wea” -UCB, .FLAGS ) ! this process 
rit ( .MTL EG 


UNLOEK ioe Q; 


| 
| 
' end for loop | 
unlock 1/0 Sotetec 

| 
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nes ! of dismount abort setup 

BEGIN ! normal dismount porn 

JIB _ = .SCHSGL_CURPCB CPCBSL (i02; i get na JIB addre 

LIST_HEAD = J76 CJI@SL_MTLFC i get job me de mount *Listhead 

Hh ( i Tock “79 ¢ cote base 

ATL = MOVE MIL ( .LIST_HEAD, .UCB, .FLAGS ); t up local MTL database 

UNLOCK 10DB" QO; ‘unlock i/0 databas 
31 END; i of normal d snsune * setup | 
918 RETURN 1; | 
Gis END; ! of routine SETUP_MTL | 


EXTRN SCHSGL_PCBVEC, SCHSGL_MAXPIX 
O1FC 00000 SETUP_MTL: 
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14-Sep-1 DISMOU.SRCJDISMOU.B32; 

WORD Save R2,R3,R4,R5,RO,R7_RB : 1410 

58 000000006 oF 3 MOVAB H$GL_PCBVEC. Rb : 
52 08 A ; C #2, FLAGS + 1470 
0 f VL S$CHSGL_PCBVEC, RO + 1476 
D MOVL (RO), RULL 3 
00006 CF FB 14 CALLS #0, LOCK 1008 > 1477) 
6 000000006 D 19 MOVL § SCHSGL_MAXPIX, R6 + 1478 
4 ps 9 CURL a ; 1482, 
12 1 DA 4 1$ MTPR #8, #18 + 1481. 
D 7 MOVL SCHSGL pcBvec R1 + 1482 | 
; 6144 D A MOVL  (RI)DCPTX], PCB : | 
3 p CMPL eB. NULL 3 

BEQL ; 
1C , p 3 sit 8(PCB) + 1483. 
52 0080 C p 5 ROVL {zacece), J18 + 1486) 
52 04 As pt F CMPL ©. &(I1B), JIB + 1485 | 

1 4 BEQL «6=s«-3$ : 
12 08 DA 0004 MTPR #2, #18 - + 1495. 
3 BO 04 MOVL JIB, LIST_HEAD + 1497 
E 04 AC 70 00048 2$: MOVO UCB, =(SPY + 1499) 
DD 0004F PUSHL List HEAD F 

0000v CF F 51 CALLS #3, MOVE_MTL 3 
0 ob 36 STL) MTL ; 1500 | 
fl 1 5 BNEG 28 ; | 
C6 54 56 OF SA 38: AOBLEQ RS. PIX, 1$ : 1478 
iF 11 0005 BRB : 1503. 
000000006 00 00 00060 4s: MOVL SCHSGt CURPCB, RO : 1507) 
0080° £9 D0 0006 MOVE 8(ROT, JIB : | 
0 6C MOVL 18, L1§T HEAD + 1508 
00006 cf 00 FB F CALLS #0, LOCK_TODB 3; 1509. 
E 04 AC 7D 4 MOVG UCB, -(SP) + 1510 

55 0D 00078 PUSHL List HEAD F 
0000v CF 03 FB 7A CALLS #3, MOVE _MTL ; 
00006 cf 30 FB DOO7F 5$: CALLS #0, UNLOCK_100B 3 131) 
' i a Bie 
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; 920 1521 1 

3 1 1 § } ROUTINE MOVE_MTL ( LIST_HEAD, UCB, FLAGS ) = 

: 9 § 1534 3 !6 

; 924 1525 1! 

3 2 5 : 8 : FUNCTIONAL DESCRIPTION: 

: g $ 1 8 1 i This routine is an envolope to set up the local mounted 

; 928 1 1! volume database . calling a routine to move each MTL entry. 

: 929 1530 1! If the requested 8 S a member of the volume set, 

; 9 1531 171! then this routine iterates over the entire volume set, 

3 1 : § ! } unless the DMTSV_UNIT flag is specified. 

: 9 ; 1534 1 ' CALLING SEQUENCE: 

; 4 ¢ 12 5 : MOVE _MTL (ARG1, ARG2,ARG3) 

: 9 15 5 1 | INPUT PARAMETERS: 

3; 937 1 3 .§ ARG1 : Address of a mount Listhead 

; 938 15 1! ARG : Address of the desired UCB 

; +14 1309 : } ARG : A longwork bit mask 

> 94) 1548 1 ' IMPLICIT INPUTS: 

cea i oe 

> 944 1545 1 | OUTPUT PARAMETERS: 

6.6 BE | ates 

; 9c9 1548 1} ROUTINE VALUE : 

: 948 - 1949 1! : If no MTL entry is found for the desired UCB 

3; 949 1550 1! 1 : If an MTL entry is successfully set up in the local database 

. ee 

; 95¢ 188 1! SIDE EFFECTS: 

; 95 1554 1! Appropriate MILs in the system are removed from the mount database 

3 328 1323 : and inserted into the local mounted volume database. 

: 956 1889 j ie 

; 1 28 1 

; 958 155 BEGIN 

; 360 1 a MAP 

> 961 1368 LIST_HEAD : REF BBLOCK, 

: ' $ FLAGS : BBLOCK; 

: 965 1 LOCAL 

3 3e6 1 $3 MAGTAPE, ' magtape indicator 

; 9 1 J ' Loop counter 

; 968 1 7 vée REF BBLOCK, i address of VCB 

3 34 } ? RvVT : REF BBLOCK, ' address of RvVT 

3; 970 157 RVT_LENGTH : REF BBLOCK, ' Length of RVT 

; 971 1 MTL : REF BBLOCK, ' Local variable for MTL 

3 376 157 LuCcB REF BBLOCK, ' Local variable for UCB 

3 ar ' iS) VAL REF BBLOCK; ' Local variable for MTL 

: 975 157 

3; 976 1 8 MAGTAPE = .BBLOCK CUCB CUCBSL_DEVCHAR), DEVSV_SQD); ! magtape flag 
| 
l . 
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14-Sep- DISMOU.SRCJDISMOU 


3 r ! rf vcB = .UCB CUCBSL_VvCB); ! get VCB address 
; 97 1 9 If NOT .BBLOCK CUCBCUCBSL_DEVCHAR], DEVS$V ron 
; 980 1 AND ((, vee VCBSW_RVN) NEQ-O AND NOT .FLAGS COMTS$V_UNITJ) 
; 981 1 § OR .MAGTAPE ~ 
; 9 ¢ 1 
; 9 1584 THEN 
; «6984 1585 
; «985 1 § BEGIN ! process a volume set 
; 986 1 RVT = .VCB CVCBSL_RVT); i get RVT address 
; 9 1 8 RVT_LENGTH = .RVT-CRVT$B_NVOLS); i get number of volumes 
; 9 1 MTL = 0; 
; 9 1590 J 20; 
; 990 1591 dO 
; 991 1 35 * BEGIN ! loop for ooeh volume in RVT 
3 836 1593 4 LUCB = .VECTOR CRVT CRVTSL -uceLsty edd3 t UCB address 
: 99 1594 4 IF .LUCB NEQ 0 ff uCB st tt cemees 
3; 9946 1595 4 THEN 
3; «6995 1 38 5 BEGIN 
3; 996 159 If ( VAL = FIND MTL ( .LIST_WEAD, .LUCB ) NEQ 0 ) 
3; 997 1338 THEN MTL = .VAL; 
; 998 1599 IF .J EQ _ : a 5 votuee 8 set, there 
; 999 1600 THEN MTL ent 
3; 1000 1601 g IF ( VAL = FIND_MTL (¢ List "HEAD. -LUCB ) NEO 0) 
: 1001 1oR¢ THEN MTL = .VAL; 
3 1908 1603 4 ND; ' end of UCB eql 0 condition 
: 100 1604 4 Jz Je; i bump index 
3; 1004 1605 4 END 
3; 1005 1998 UNTIL .J GEQU .RVT_LENGTH; ! 
3 1006 160 END ! of volume set processing 
3 1007 1608 
3 IOs 1o02 ELSE 
: 1Si9 + ae MTL = FIND_MTL ( .LIST_HEAD, .UCB ); ! single volume, find one MTL 
3 ois 1818 RETURN .MTL; 
3 31 1614 
3 1014 1615 END; ! routine MOVE _MTL 
O1FC 00000 MOVE_MTL: 
eWORD Save R2,R3,R4,R5,R6,R7,RE 3: 1822 
0090v CF 9 3 MOVAB FIND_MTL, R8 3 
AC OD novi, ucB, RO ; 1577 
52 38 Ad 0 EF ExTZV a #1, 56(RO), MAGTAPE : 
1 6 Ad OD 1 MOVL {RO}. cB : 157 
62 A 1 . ag (RO), 8$ : 1 
— A 1 Tw 4(vcBS ; 1681 
03 oc p if Beet OAT. Lacs, 28 
E ; i BLBC GABE, és > 3 
30 A 3 i FiNCOSe AVI 3 
40 A A MOV ZBL (RVT), RVT_LENGTH s 3 
5 D4 E CLAL ATL 3 7 
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DIS 1$-52 1984 239: AX-11 Bliss-32 V4.0-74 Page 29 
vitae tied 1a-8ep- 38% 93:39:03 DISMOU.SRCID1 SMOU.B32; . AY 
; 101 1618 1 
$ : 1 1033 1 ROUTINE FIND_MTL ( LIST_HEAD, UCB ) = 
: 18s] 1852 i 
; i § 16 i FUNCTIONAL DESCRIPTION: 
+ 1025 1605 1! This routine searches the mount List entries (MTLs) in the 
3 10 $ 16 § o 7 iven Listhead for a given UCB. If an entry is found, it 
3; 10 16 1! s removed from the List and inserted into the local 
3 12 8 i? 8 ! } MTL database. 
: 19 0 1630 1 Note: This routine must be called with the 1/0 database locked, 
; 1031 1631 1! -@. it assumes the calling routine has locked the 1/0 database 
1088 1638 1 i nec 
> 1034 1634 1 | CALLING SEQUENCE: 
3 193? 16 5 ! FIND_MTL (ARG1, ARG2) 
: 1037 16 $j i INPUT PARAMETERS: 
: 1038 1638 1! ARG1 : Address of the mounted volume Listhead 
: + ta 197) ' ARG2 : Address of the desired UCB 
: 1061 1641 1! IMPLICIT INPUTS: 
1008 1ec8 1 i aie 
> 1064 1644 1 | OUTPUT PARAMETERS: 
bee Voce | te: 
: 100? 1647 1 | ROUTINE VALUE: 
3 1048 1648 1! 0 : If no MTL entry is found 
; be 1969 : } 1 : Address of the MTL entry 
> 1051 1651 1! SIDE EFFECTS: 
; 136 1036 1! One MIL entry for the desired UCB is removed from the mount 
3; 105 1655 1! database and inserted into the local mounted volume database. 
: 1054 1654 1! 
; 1055 1655 1 !- 
MBS TE D accin 
: 1908 1886 5 MAP 
; 1060 1660 LIST_HEAD : REF BBLOCK, ' mount Listhead 
3 190) 1661 ucB : REF BBLOCK; ' UCB address 
1068 1868 § LOCAL 
3 1064 1664 LOCAL_MOUNTLST : REF BBLOCK, ' Local mount Listhead 
5 1992 199? MTL : REF BBLOCK; ' local variable for MTL 
; 1967 186% 9 BUILTIN 
: 1089 166 REMQUE ; 
3; 1070 1670 
3 14 1671 exe 
3 % 1676 CTL$GQ_MOUNTLST : VECTOR ADDRESSING_MODE (GENERAL); 
3; 107 167 
3 1074 1674 


ne Sem 198 23:39:89 YARCHT OL fags 82 ¥4 0274 Page f0 


; 1075 1675 MTL = SEARCH MOUNT ( .LIST_HEAD, .UCB ); ! search for MTL 

; 107 1 6 F .MTL NEQ O ! found one 

3; 107 167 

3; 107 1 8 BEGIN 

3 107 167 LocAt MOUNTLST = ab re -MOUNTLST (1); ' set up local MTL Listhead 
3 1 rs} 1680 REMQUE + ! remove from old mountList 

; 1081 1681 INSQUE ( <MTL, LOCAL -MOUNTLST); ! insert into local mountlist 
: 1Se6 16 ¢ END; ' done for this MTL 

3 10 16 

3 1084 16 RETURN .MTL; 

3; 1085 1685 

; 1086 1686 END; ! of routine FIND_MTL 


0000 00000 FIND_MIL: 


. Save nothing 3: 1619 

7E 04 aC 7D 00002 mova List AEAD. =(SP) + 1675. 

FEBE CF o¢ FB 00006 CALLS #2, SEARCH MOUNT : 
D5 00008 TSTL = MTL : 1676. 

OE 13 00000 BEQL ~=ésé18 : 

51 000000006 9E 0000F MOVAB CTLS$GQ_MOUNTLST+4, LOCAL_MOUNTLST + 1679 

50 60 OF 00016 REMOUE (MTL). "MTL + 1680. 

00 «81 60 O€ 00019 INSQUE (MTL), @0(LOCAL_MOUNTLST) + 1681. 
04 0001D 18: RET > 1686 


3; Routine Size: 30 bytes, Routine Base: Z$DISMOUNT + 04(C1 


; 1087 16 
; 1088 16 
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ROUTINE CHECK_PRIV ( UCB, FLAGS ) = 
‘6 
f 

FUNCTIONAL DESCRIPTION: 


This routine performs the privilege checks for the attempted 
dismount operation. 


Li SEQUENCE: 
PRIV_CHECK (ARG1,ARG2) 


INPUT av ab ob 
ARG1: poprese of the desired UCB 


OODOOOOOOOOOO® 


WN "OC OONOUS UT O0 


S 16 1 3 
3 1 16 1 3 
3; 3 16 1 3 
3 1 16 1 3 
3 3 16 1} 3 
; 1095 16 1; 3 
3; 1 16 1! ; 
: 109 16 1! 3 
3; 1098 16 1! 3 
3 1 16 1! 3 
3 11 18 1! 3 
; 1101 1 1! 3 
3 11 § 17 1} : 
3 11 17 1! 3 
3; 1104 17 1! 3 
; 1105 1704 1! ARG2: A longword bit mask 3 
3 1198 1705 1! 3 
3; 110 17 1 ! IMPLICIT INPUTS: F 
3; 1108 178 13 NONE $ 
: 1109 1708 1! 3 
3 1110 1709 1°! IMPLICIT OUTPUTS: 3 
31191 1710 1! NONE 3 
3 aT 711 17! 3 
3 199 a 1 ! ROUTINE CALUES: : 
3.1116 171 1 ! SS$_NORMAL : Suc : 
31115 1714 1! SS$_NOPRIV : No “oriyttege for attempted eperetion 3 
3 1339 wie 63 $S$_NOGRPNAM 1 Roeration requires GRPNAM privilege é 
3111 1718 1! SS$"NOSYSNAM : Operation requires SYSNAM privilege 3 
; 1333 ats : } DISAS_SYSDEV : Attempt to dismount the system disk : 
: 1120 1719 1 ! SIDE EFFECTS Fs 
3 1121 1720 1! NONE : 
311 ; 1721 1! 3 
3 11 17 ; 1 !- 3 
3 1126 17 1 s 
3 1125 1724 BEGIN 3 
3 11 $ 1725 3 
311 17 § MAP 3 
3 1128 17 ucB : REF BBLOCK, 3 
3 1129 17 8 ¢ FLAGS : BBLOCK; 3 
3; 1130 17 3 
3; 1131 1730 LOCAL 3 
3 11 § 1731 LIST_HEAD REF BBLOCK, ' Local mount Listhead 3 
311 17 § MTL : REF BBLOCK, ' variable for MTL 3 
3 11 17 vcB : REF BBLOCK, ' vcB 3 
3; 1135 1734 ORB : REF BBLOCK, ' ORB 3 
3 11 1735 J18 : REF BBLOCK ' address of the JIB 3 
514 1736 PRIVILEGE_MASK : REF BBLOCK, i process privilege mask ; 
3 i 4 uIC; ! process Ul 3 
3 11 1539 crveomy, 3 
3 1" Ho 19C$GQ_MOUNTLST : VECTOR ADDRESSING MODE ( (GENERAL) » ae 3 
i 1748 CTLSGL_PHD : REF BBLOCK noone SEINE nd HOD (GENERAL) » 
3 11 174 process. header ; 
3 iy Ho EXESGL_SYSUCB : REF BBLOCK noone SiN hob (GENERA 3 


address of system Aoi ucB 


MEW "OO OONOUS Uw O0OO~ 
NAAAAAOSOAAOO FoF a? > 


MEN 0 OONO VE WIN (0 OD NO NEW "OOO NO UNE UW OOO 


SSIS NNO OO 


w SSeS sae SSN SSS. 
COCO OOOO NAN NNN oon PUPP PISISIPIVIIVIVIT 


no 


ee a a a a a ld 
Se ee be he > > ee ee i 


SELSSEALNLSSEN 


ee ee ee ec cee a ec dt ad ot td 
ee a tt a a na tt at at at at at at a SS SV YH YO 


Be Be Be Se Se Be Se Be Se Se Se Se Fe Se Se Se Fe Fe Ge Se Se Be Sete Ge Ge Se Ge Ge Ge Ge Se Ge Ge Ge Ge Se Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Geese 


SRVISSSLESRENLES 


sss 


UESAcIOR FEABSSD TGR PLANTS Be re i 


14-Sep-1 DISMOU.SRC MOU.B32; 
SCHSGL_CURPCB : REF BBLOCK ADDRESSING_MODE (GENERAL); 
‘address of current PCB 
EXTERNAL ROUTINE 
LOCK 
UNLOCK 1068, 
LOCK_LAM, 
UNLOCK _LNM; 


If this UCB is mounted by fhe current process and this is ’ normal 
e\emount request, we immediately return without further privilege 
! checks. 


If this is a dismount /abort or /cluster request, then there are three 
seperate checks: 


1. If the volume is mounted /system, the dismounter must have SYSNAM 
privilege. 


2. If the volume is mounted /group, the dismounter must: 
a. have SYSNAM privilege, or 
b. be in the same group with GRPNAM privilege. 


3. If neither, then the dismounter must have the same owner UIC as the 
device, or have VOLPRO privilege. 


IF NOT ( FLAGS CDMT$V_ABORT) 
— OR .FLAGS COMTSV_CLUSTER) ) ! if normal dismount 
BEGIN 
JIB = ,SCHSGL_CURPCB CPCBSL 418); ' get the JIB of current process 
LAST HEAR = J7B CJIBSL_MTLFCI; ! point to our job-wide mount List head 
MTL = SEARCH_MOUNT ( .LIST_HEAD, .UCB ); ! see if volume is privately mounted 
UNLOCK_10D8 7); 
IF ¢ .ATL NEQ 6 ) 
THEN ' normal dismount of a privately mounted volume 
RETURN 1; ' return immediately 


vcB = .uCB CUCBSL_vC 


PRIVILEGE MASK = CTLSGL_PHD CPUOSR PRIVEE: | Got process privilege mask 
; ! ge 
LIST_HEAD = JOC$GO_MOUNTLST(O); ; Search system wide list 


LOCK_J0ODB (); ! tock 1/0 database 

MTL = SEARCH_MOUNT ( .LIST_HEAD, .UCB ); 

If .MTL EQL O ! if not mounted system or group 
THEN ! check proper privilege 


get ORB add 


BEGIN 
ORB = .UCBCUCBS$L_ORB); ress 
) unlock 1/0 database 


UNLOCK: 1008 ©); 


wn, 


< 


§ 
op71982 93:38:03 OT Smoue sae Soigmouso32, Pege 33 


15*$ 
146§ 
' ge 
! 


yc s  SCHSGL urece recast vic); ! get rocess UIC 
l ( .FLAGS LOMT$V_ABORT check privilege 
AND ( “ule NEQ .ORB CORBSL punee ) 
AND righ? PRIVILEGE _MASK CPRV$V_VOLPRO) ) 
RETURN SS$_NOPRIV; ! no privilege to dismount /abort 


ELSE 


i If this is a disk mounted /GROUP, the dismounter must be in the group 
' that mounted the disk, or have SYSNAM privilege. 


' 
' 
' 
: 
BEGIN 
vVCBCVCBS$V_GROUP) ! volume mounted /group 


— «1 4 4 


IF 
THE 


2: 
— 


MASKCPRVS$V_SYSNAM) 
EGE _MASKCPRVSV_GRPNAM] 
y PTE CRTLSLLOGNARE J NEQ 0 
(LOCAL 
LNMB : REF BBLOCK, 
: REF BBLOCK, 
: REF BBLOCK, 


-MTLCMTILSL LOTABLE3: 


= 

= LWAOC NABS. TABLE 

= .LNMTHCLNMTHSL_ORB); 
= 


FULL_UIC = .ORBCORBSL_OWNER); 
UNLOCK _LNM(); 
-FULL_OIC <1, 16> 
33 EQL .§CHSGL_CURPCBCPCBSW_GRP) 
41 ELSE 1) 
4 
4 ) 
44 N 
45 BEGIN 
4 UNLOCK _10DB Q; 
4 4 RETURN” (SS$_NOGRPNAM) ; 
4 END; 
49 get 
1 if . VCBCVCBSV_SYSTEM) ! volume mounted /system 
: IF NOT .PRIVILEGE_MASKCPRVSV_SYSNAM) 
4 THEN 


BEGIN 
UNLOCK. 1008 QO; 
RETURN $S$_NOSYSNAM) ; 
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UNLOCK _IODB (); ! unlock 1/0 database 
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ee 9 J -UCB EQL .EXESGL_SYSUCB ! check for dismount of system device 
ef § RETURN (DISMS_SYSDEV); 
1 END; ! mounted /GROUP or /SYSTEM checks 


SS 


6 RETURN 1; 
END; ! routine CHECK_PRIV 


NO 
oO 


a at i 
o 
w 
kt a 


oa 
oo 


.EXTRN LOCK_LNM, UNLOCK_LNM 
O1FC 00000 CHECK_PRIV: 
. WORD 


Save R2,R3,R4,R5,R6,R7,RB : 
58 90006 F 9E 000 3 V UNLOCK_f0D6 : | 
a 000000006 9 HOVAB age tnaee ig R? = 

$$ 3 AC E 13 5 #3. FLAGS, + 177 
67 D 1 MOVL Scisc. CUAPCB, RO + 1780) 
g 0080 £0 D 1 VL 8 (ROY : | 
Me iB. LI$T_ HEA : 1781 
00006 CF 00 FB 000 CALLS #0, LOCK_T0DB8 F 1788 
0% 8 Bb boode Csi USE. ea Teciees 
FE79 cf 6 FB 3 CALLS ig SEARCH_MOUNT : 
£8 t 0 CALLS #0, UNLOCK_1008 > 1784. 

D 9 TSTL = MTL > 1785 

00B> $1 gooke foes : 

s 000000 06 00 3 6 if 1$ HOVE CTLSGL_PHD, PRIVILEGE_MASK : 1790 
2 4 AS D0 BOOKA MOVE (R6), VCB : | 
55 000000006 E af MOVAB Locsca MOUNTLST, LIST_HEAD : 1792 
we tt fe sh noun t g toe (SP) ; 1998. 
reso GF FB 000 CALLS Me. SEARCH_MOUNT ; | 
’ MD 8008 —sOUC«ae : 4797 | 
33 “ 09 4 3 Cats $8cno) one. ; 199) | 
$0 D MOVL : H$GL_CURPCB, RO : 1808 
00BC D MOVL 8 (ROY uit : 
76 08 AC £ 76 BB: #2, FLAGS, 6$ ; 1804, 
6 D D1 00078 CML €, cores ; 1805 | 
6D 4 15 € BBS #21, (PRIVILEGE_MASK), 6% : 1806 
0 24 BO ROVL #36. RO ; 1808 | 
3E 0B a2 1 28: BBC #6, 11(VCB), 48 > 1818. 
4c 6 BBS #2. (PRIVILEGE MASK), 33 > 1822 | 
20 64 BBC #3. (PRIVILEGE-MASK), 3$ > 1823 | 
10 A p TSTL LetmtL) > 1824 | 
4 9 BEQL Ss ; | 


; Routine Size: 245 bytes, Routine Base: ZSDISMOUNT + O4DF 


i) 1b-se 1984 AX-11 Bliss-32 V4.0-74 P 5 
ybee000 12-808=}38e 3; 38: 83 DISMOU.SRCJDISMOU.B 4 ne (3 | 
00006 CF 00 F 9A CALLS 1 nb OCK=LN : 1831. 
i? A p hs BOVE ety NTH t | 4 
a Me 
00006 CF § FB 3 CALLS LOCK CNM : 18 $ 
$ pose «0. Se So0RS ROvzuL Hie sCuRPee, ” ; 1838 
51 52 10 f Fo CPV Hoo #6, FULL aUIC, RI ; 
8 000Ce 3$: CALLS LOCK_1008 > 1845) 
$8 281 SF i 3 novo r 6288. RO™ + 1846) 
0B A2 if cB 4$ ise }1cvce) + 1850 
09 ; E 5 BBS #2, (PRIVILEGE_MASK), 5$ : 1852 
rf FS D4 CALLS #0, UN _1008 3: 185 
2814 &F 3¢ 07 MOvZWL #16260, RO + 1856 
0 F DD S$: CALLS #0, UNLOCK_1008 + 1859 
000000006 85 58 of e0 CPL oe EXESGL~SYSUCB + 1860 
50 00738014 BF 06 E9 MOVL #7569428, RO + 1862 
50 01 00 O00F1 6$: MOVL #1, RO + 1867 
04 O00F4 RET + 1869 


; 137) 1870 1 
; 1871 #1 


0:08 


38 92:3 
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15-Sep-1 
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erforms the cluster-wide dismoun 
er routine to create a cluster-d 
this dismount request to other nodes in the 
Address of the device descriptor 
: Status from comm primitive. 


OUTINE DISMOUNT_CLUSTER (DEV_NAME, FLAGS) = 
DISMOUNT_CLUSTER (ARG1,ARG2) 
: A longword bit mask 
: If success 
The dismount request is sent to other nodes in the cluster. 


-—- arn 
a oe paid 
=| ess o “ Fs nhunun HH 
=) oe bw oe ww w oe - Oweadgw 
”» s3Mme- 2 — _ eo > zaacaom 
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- wan oe c ce = €e 2> € ws [reyeuyryyreyreyry) 
z “_+c— [: 4: 4 oe 3 _ = a - = $ 3 - ah ah ahaa 
oe >= € oS _ OS = wo gt te aes 
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— a = - a a z coococoe 
oe Vv - r=) _ 5 =e < ” ‘ 2 vevsesr 
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cc ca DW Oa a a CECUCUCUCURNCUCNnS 


SO LL 


[el ed dl et dd ooo aan ll NAP A 4D cone gS 
Sh eel eee etl ae cel cea eh ee ce ee eh eh el el eh eh eh ee el el ele ll el kl ek el eh hc ae 
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= 
EM CITEM = 
EM CITEM-ADDR) = FUL_BEV_STR; 
EM CITE DR) = LENGT 
em CITE = 


DEV_DSC ED Stsac LENGTH) = .LENGTH; 
~DEV-DSC 


DSCSA_POINTER) = FUL DEV. STR; 
F NOT .STA 
HEN 

RETURN .STATUS; 


FUL 
FUL 
iron US = Bi SnOUaT ENCIPHER (FUL_DEV_DSC, .FLAGS, , OYEFER. LENGTH); 


965 M_STOP 3 ! End of item List 

969 

He i Since the dismount request will be sent to other nodes in the cluster, we 
399 must use the full device name. Obtain the full device name. 

971 2 STATUS = $GETDVIW ( EFN = MOUNT_EFN, 

378 DEVNAM = .DEV -AARE, 

97 ITMLST = ITEM”) ' Get full device name 

ore i eer STATUS ! If error, return 

378 NRETURN STATUS; 

9 + ! Create a descriptor for the 


i full device name 


error, return 


5 

d1S 1S-se 1984 23:39: AX-11 Bliss-32 V4.0-74 
tat 12-80 8=}8he 13:38:88 DISMOU.SRCIDI SMOU.B32; 
; 1331 1 
: ' } é LITERAL BUF_SIZE = DSCSK_S_BLN + NAMEBUF_LEN + 4; ! Define cluster-dismount buffer size 
: 1886 § MAP 
3 3 1 DEV_NAME : REF BBLOCK, 
3 : + 5 FLAGS : BBLOCK; 
3 7 19 ; EXTERNAL yg ey 
: 1340 19 N_CLUSTER 
; ! 1 195 ERD CLUSTER: 
3: 1 ‘ 13¢9 LOCAL 
3 13446 1306 STATUS, 
3; 1345 194 LENGTH, 
‘ : $ Hb BUFFER : BBLOCK CBUF_SIZE], ! Buffer area 
3 1 : + 4 | ITEM : BBLOCK CIT 7 SIZE) ' Item List for S$GETOVI 
:4 194 FUL_DEV_DSC : BBLOCKCDSC$K~S_BLNI, | Descriptor for full device name 
; 20 1948 FUL-DEV=STR : VECTOR NARE SOP “CEN, BYTE]; | Full device name 
> 135 1950 
3 1 36 1984 IF ( NOT (.FLAGS COMT$V_CLUSTER) )) ' If not /cluster 
3 1354 1396 OR ( NOT .CLUSTER_ DEVICE ) '‘ or not a cluster device 
3; 1355 195 OR NOT ( status = IN_CLUSTER() ) ' or not in a cluster environment 
3 HEN ! return immediately 

135 1954 THE ! i i 
H : 2 132? RETURN 1; 
3; 1359 1989 rLAes rk te CLUSTER) = 0; ' Clear cluster-wide flag 
3 1 1958 LENG ! Initialize work area 
3 ; 1 1323 tASrICL. (0, BUF SIZE, BUFFER); ! Zero buffer area 
| ¢ 1961 ITEM CITEM_LENG N; ' Set up item descriptor to 
3 1 1968 M- CODE vis OF UCL BE UNAM; ' get full device name 
3; 1365 196 ee 
3 1 1 M_LADR 
3 1 1 
3 7 1 
3 7 1 
3 1 1 
3 7 1 
3 3 1 
3 7 1 
3 3 1 
3 7 1 
3 7 1 
3 y 1 
3 7 1 
3 % 1 
3 7 1 
3 7 1 
3 1 1 
3 1 1 
3 1 1 
3 1 i 
2. 1 
3 1 1 


! Encipher the dismount request 


2c 


5 
1S-se 1984 23:39: AX-11 Bliss-32 V4.0-74 
Ve-8b-1984 43:30:08 — Yotsmoueseedp; smou.o30¢4 
STATUS = SEND_CLUSTER (BUFFER, .LENGTH, 0); ! Propdcest the request 
! Arg5=0 means a cluster-dismount 
RETURN .STATUS; 


END; ! End of DISMOUNT_CLUSTER 


.EXTRN IN CLUSTER, SEND_CLUSTER 
007C 00000 DISMOUNT. CLUSTER: 


0 Save R2,R3,R4,R5,R6 
SE ce a HOVAB «-104(SP5, §P 
10 08 AC 03 € C #3, FLAGS, 1$ 
08 0000" CF €9 BLBC CLUSTER DEVICE, 1$ 
00006 ct 0 F CALLS #0, IN_CLUSTER 
6 D L R STAT YS 
4 6 €£ 1 BLBS STATUS, 2$ 
0 1 i 0 1$: MOVL #1, RO 
08 Ac 08 8A OOO1F 28: BICB2 #8, FLAGS 
6 4 000 CLRL LENGTH 
00 6E 00 C 99 MOVCS #0, (SP), #0, #44, BUFFER 
C AE 0080030 8F DO 000 MOVL #15204384, ITEM 
0 AE 4 AE 9€ 000 MOVAB FUL_DEV_SfR, [Temes 
4 AE 6— 9E 00 MOVAB LENGTH, “ITEM+ 
38 AE OG CLRL = I TEM#12 
7E 7C CLRO 2 =(S 
7E 7¢€ 000 CLRQ = =(SP) 
3c =O AE. sO9F:«000 PUSHAB ITE 
04 aC dd 000 PUSHL DEV_NAME 
43 1A 7D 6 OVO #267 -(SP) 
000000006 Q F CALLS #8, SYSSGETDVIW 
& D0 000 OVL R ys 
2F E BLBC —s- STATUS, 
24 AE 6— 80 MOVW LENGTH. FUL_DEV_DSC 
8 AE 04 AE 9E VAB  FUL_DEV_STR; FUC_DEV_DSC+4 
SE 0D PUSHL SP 
40 AE OF PUSHAB BUFFER 
9 AC 0D 00068 PUSHL FLAG 
AE OF PUSHAB FUL_DEV_DSC 
0000v cf 4 F CALLS #4, DISAOUNT ENC IPHER 
6 0 D MOVL RO, STATUS 
10 6 € BLBC STATUS, 3$ 
—E D4 CLRL = = (SP) 
04 AE OD PUSHL LENGTH 
44 AE OOF PUSHAB BUFFER 
00006 CF F CALLS #3, SEND CLUSTER 
i) MOVL =R STATOS 
4 p 3$: MOVL STATUS, R 
4 RET 


; Routine Size: 141 bytes, Routine Base: ZS$DISMOUNT + 0504 
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ROUTINE DISMOUNT_ENCIPHER (DEV_OSC, FLAGS, BUFFER, LENGTH) = 


te 
' 


FUNCTIONAL DESCRIPTION: 


This royt ine takes the parameters of the dismount request 
and enciphers the parameters into a cluster-dismount packet. 


CALLING SEQUENCE: 
DISMOUNT_ENCIPHER (ARG1,ARG2,ARG3,ARG4) 
INPUTS: 


ARG! : Address of the device descriptor 
ARG2 : A longword bit mask 


i 
i 
i 
i 
i 
i 
i 
i 
; 
i 
i 
i 
i 
i 
OUTPUTS: 
! ARG3 : Address of the output puf ter to receive the 
! cluster-dismount packet 

; ARGS : Address of a longword to receive the length of 
the output buffer 
IMPLICIT INPUTS: 

None. 

OUTPUT PARAMETERS: 

: None. 

IMPLICIT OUTPUTS: 

None. 

1 ROUTINE VALUES: 

i 
i 
i 
i 
1 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 


1 : If successful 
SS$_BUFFEROVF : Insufficient internal buffer space 


SIDE EFFECTS: 
None. 


NOTES: 


This encipher routine takes the given device descriptor and turns it 
into a cluster-dismount packet of the form: 


Offset 
Yoeceseoocesrane= ¢ 


: flags : O BUF _FLAGS 


geome eacnrecrwewtanao= ¢ 


<o ] 


Se Se Ge Be Oe Se Se Se es Ge BH Se Se SF Se Ge Se Se Se FH Se Se Se Se SHSe Se SH ee 
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18.58 -1984 23:39: AX-11 Bliss-32 V4.0-74 Page 41) 
Fae ts 1278 08-13be 13:30:03 DISMOU.SRCJDISMOU.B32; e119 | 
3 1456 11! | dev descrptor | 4 BUF_DSC | 
§ 14 5 § 1 ! goomeaesnecnwmare ane + 
3 14 § 1! H : 8 
: 14 8 > 33 ' device string ; 12 BUF_STR 
3 12 6 § : catia eat aaa | 
tie) gi SR EE 
; 1008 59 1! 
3 146 01! 1. This cluster-dismount packet is to be sent to other nodes in 
5 Vege 1 : the cluster and processed by CSP (the Cluster Server Process). 
; 1698 O68 1/ 2. The address in the device descriptor is "‘relocated’’ to be the 
; 146 4 1! offset from the beginning of the peskes (i.e. self-relative). 
; 1798 Ro? ! This is done for consistency's sake with the cluster-mount packets. 
i 14% a7 | | 
; 147 1 
3 1298 070 BEGIN ! Start of DISMOUNT_ENCIPHER 
3 14676 071 
3 1475 Ors MAP 
3 1o78 07 DEV_DSC : REF BBLOCK, 
; eh Bre BUFFER : REF BBLOCK; | 
; 1479 O76 ¢ LOCAL | 
3 1481 $44 LOC_DSC : REF BBLOCK; 
: 14 079 | 
3 1288 080 MACRO BUF_FLAG = 0,0,32,0%: ! Define buffer offsets 
: 1484 081 MACRO BUF _DSC = 3°063 O08; 
3 1485 oa8 MACRO BUF STR = 12,0,32,0%; 
; 14 085 LITERAL BOF_HDR_LEN = 12; 
: 14 085 | 
3 1489 ss If (.DEV_DSC CDSCS$W_LENGTH] GTRU NAMEBUF_LEN) ! Check if internal buffer Large 
: 1490 08 HEN _ ' enough | 
3 e+ +43 RETURN SS$_BUFFEROVE ; ! If not, return error 
; 1298 090 LENGTH = BUF _HDR_LEN + .DEV_DSCCDSCS$W_LENGTH]; ! Compute Length of output, 
3 1494 091 ' including parameters 
3 1495 O38 BUFFERCBUF FLAG) = .FLAGS; ' Set flags in buffer 
3 1698 9 LOC_OSC = BuFFERCBUF _DSC); ! 
3 149 94 
3 1698 95 ! 
3 1 38 : Copy the device descriptor into the output buffer | 
: 1864 098 CHSCOPY (DSC$K_S_BLN, | 
3 1206 : DEV_DSC, 
:1 101 0SC$K_S_BLN 
; i 5 ; BUFFEREBUF OSC); 
; KY : 3 LOC_DSCCDSCSA_POINTER] = BUF _HDR_LEN; ! *Relocate’’ the string pointer 
1 1 ' 
3 1509 1 ! Copy the device string into the output buffer 


8p Ge ii 


p=19B6 12:20:08 


tei sue Oi legate ni eto 
DISMOU.SRCJDISMOU.B32; 


! End of DISMOUNT_ENCIPHER 


O1FC 00000 DISMOUNT oper’ 
seve Re R3,R4,R5,R6,R7,R8 


3 1511 1 
[4 \% 103 énscopy (DEV -PSCEDSC$W_LENGTH] 
; 13 110 gre vaDsC DSCSA-POINTERI, 
: 1515 18 DEV psc Ds¢ su LENGTH), 
> 1 1 1 Buf FERTBUF_STRI); 
> 151 114 
: 1518 115 2 RETURN 1; 
> 1519 116 17 END; 
62 04 AC 00 00002 
20 68 B81 9006 
6 18 0000 
50 0601 BF 3¢ 9008 
4 0001 
10 BC 8 %3C 00011 18: 
10 BC C CO 0013 
? 0c AC 00 00019 
7 08 AC 00 0001D 
a 04 =A 3 0021 
04 A? be 8 28 00025 
04 Ab C BO O002A 
Oc A? 04 88 68 2 00 E 
50 01 00 000 
04 00037 
; Routine Size: 56 bytes, Routine Base: ZS$DISMOUNT + 0661 


; 1520 2117 «1 


5564 Rb 


#1537, RO 
ne at es 


4( 
RO 


LOC DSC) 
Nats hh 12(R7) 
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1.56 =1984 23:39: AX-11 Bliss-32 V4.0-74 Page 43 
12-80 8= 1 oh 13:38:98 DISMOU.SRCJDISMOU.B32; . (12) 
ROUTINE DISMOUNT_AUDIT (FLAGS, CHANNEL, UCB, MTL): NOVALUE = 
'¢ 
' 
FUNCTIONAL DESCRIPTION: 
This routine determines if a security guditing packet should 
be Logged. If so, it creates the security auditing packet and 
logs the event. 
CALLING SEQUENCE: 
DISMOUNT_AUDIT (ARG1,ARG2,ARG3) 
INPUTS: 


ARG) : A longword bit mask 
ARG : The channel number of the channel assigned to the device 


ARG : Address of the desired UC 
ARG4 : Address of the mount List entry 
OUTPUTS: 
None. 
IMPLICIT INPUTS: 
None. 
OUTPUT PARAMETERS: 
None. 
IMPLICIT OUTPUTS: 
None. 
ROUTINE VALUES: 
None. 


SIDE EFFECTS: 


If security auditing is enabled, then create a security auditing 
packet and log this event. 


WR 9 OONO UNE WN 0 OONO UE WN O ODNO NEA OC ODNO UE WN OOM 


PLD DO PAA ALIN II III EE EE ES EB BE AW AAD ANA AAAI IIIT 


EE EE EE EE EE EEE EEE EET EEE ee ee 


w 


LS 


ee ee a ee ee a a a a ee ee ee a ee a ee el el el el el ee el el el 
PRIMIRIM NINA <a wt a a a a a a ns nt nt a a a nt a ni a a a as a ss os ss Ss Ss Ss Ss Ss Ss Ss Ss Ss Ss Ss Ss Ss Ss 
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08 BEGIN ! Start of DISMOUNT_AUDIT 
}} MAP 

71 FLAGS : BBLOCK, 

¢ uCcB : REF BBLOCK, 

4 MTL : REF BBLOCK; 


6 
voi-bbo VSsgortage @3:39:08  WStsAdOLdeSG badd 8324 P08 43) 


{8 \?? BUILTIN omas 
1 133 
¢ 178 EXTERNAL 
17 SCHSGL_CURPCB : REF BBLOCK ADDRESSING MODE (GENERAL), 
180 address so current PCB 
5 181 NSASGR_ALARMVEC : BBLOCK ADDRESSING MODE | (GENERAL) 
1 § Ala m enable bit vector 
1 NSASGR_JOURNVEC : BBLOCK ADDRESSING “MODE (GENERAL) ; 
3 : : ! Journal enable bit vector 
90 1 LINKAGE 
91 1 ARGLST_IMGNAM = JSB (REGISTER = 2;) : 
35 1 NOP Fs tah (0,1) 
93 NOTUSED (3,4,5,6,7,8,9,10,11); 
95 1 EXTERNAL ROUTINE 
1 NSASEVENT_AUDIT : ADDRESSING_MODE (GENERAL). 
59 1 curity ovdi tin _fout ine 
598 1 NSASARGLST_IMGNAM : ARGLST_IMGNAM ADDRESSING. “RODE” (GENERA 
599 1 Insert IMGNAM Gal ARGLST 
600 1 
601 1 PSECT 
ons 1 PLIT = Z$DISMOUNT; ! Define PLITS in Z$DISMOUNT psect to 
60 1 ! avoid truncation errors 
604 LOCAL 
605 vcB : REF BBLOCK, ! Address of the VCB 
ope RVT : REF BBLOCK, ' Address of the RvVT 
60 LNMB : REF aqetT ! Address of the LNMB 
608 ARGLIST : BBLOCKENSA$K_ARG3_LENGTH), 


$ 


' pecur sty eysi tas argument List 


DEV -LEN : pL ' Length full device name 
DEV vec CTOR acti NAMLENGTH), i Full device name buffer 
ITER (tsi a Ok he 


Item List to 4 full device name 
Length of buffe 

Get full Pow Seg name 

Full device name buffer address 
Length of full device name 

Item List stopper 


( WORD (LOGS$SC_NAMLENGTH), 
WORD (DvI$ FULLDEVNAR) , 
LONG (DEV Ri. 


LONG B (BEV LE 


at a a a 


WR =O O@WOVUES UE "OOO WO VU Fwn oO 


-NSASGR-ALARMVEC (NSASV_EVT_MOUNT 
OR, NSASGR- JOURNVEC CNSAS¥~EVT_MOUNT J) 


BEGIN 
CHSFILL (0, NSASK_ARG3_LENGTH, ARGLIST); ! Zero argument List 


' 
Set up the security auditing argument List header 


He (. SCHSGL_CURPCB CT ENSA SECAUDIT) 


ARGLIST CNSASL_ARG_COUNT) = ( NSASK_ARGS -LENGTH/4 ) 
In ielatize Length of argument List 
i Less vol-set pkt and arg count 


ee a a a a ts 4 ss a a eg a et wt as ss 4 es ss a Ss ss as 4 es 


POPCPOSCHAOSOOSPAOAAOAAOAOAOAAAS 


Be Oe Be Se Se Se Se Se Se Se Se Se Ge Se Be Se Ge Se Ge Se Ge Se Be Ge Ge Ge Fe Ge Se Ge Fe Se Ge FH SH Se Se Ge Ge Ge Se Se Ge Ge Ge Se Ge Se Ge Ge Se Ge Fe Se Ge Se ae 


WUsruUrerormsronsmoMIInd — —2 222 2 2 2 2 -OOOOOOOOOOODOODODOOO 
NS O00 NO APU MOSH VP APs ee een eb oe 


wa 
w 


AAAS 


SL 


rSSSSSISS55 
DONO VL WN “OC ODNOU Ew 


PAAAAOOAAAO 
DADA APA SAIS 


vv 


SESFESEES. 
NOUS wT — 
PDEA QLQEQ®D_ Mann B® BPP PP EP AIA 


PEN O OODNO NEW "OD OVNOA NEW SO OODNOUE UT 


2s 
SSN NN 
NOUEWN 00 
SNS SF 
wn 0 0@ 


SOOPOAAAS 


ARUN OOS 


Sse 


me et a a a a mt a a a a a at tk a tk te as tt ot 2 = 2 2 = 


Be Se Se Be Oe Se Se Be Se Se Se Se Se Se Be Fe Se Se Se FH Te Ge Ge Se FH Ge Ge Se Se Se Ge Se Se SH Se Se Se FH Se Se FF Se Se Se SF Sy SH Se Se SH Se Se 4 Ss Se Se Se 
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ARGLIST CNSASL_ARG_ID] = NSASK -RECID_VOL_DMOU; 
! Initialize record id as dismount 
if jSCHSGL. CURPCB CPCB$V_SECAUDIT) ! Set up proper flags 


ARGLIST CNSASV_ARG is MANDY) = 1; 
a ie GR_ALARMVEC CNSASV_EVT_MOUNT) 


ARGLIST CNSASV_ARG Any ALARM) = 1; 
If «NSASGR_JOURNVEC CNSASV_EVT_MOUNT] 


N 
ARGLIST CNSASV_ARG_FLAG_JOURN) = 1; 
ARGLIST CNSASB_ARG_PKTNUM) = 5; 


Mandatory auditing 


Generate alarm for this record 


Journal this record 


Initialize number of items 
less vol-set pkt 


' 
Set up the security auditing argument List for dismount 


ARGLIST CNSASL_ARGS_DMOUFLG_TM] = NSASK_ARG oe WORD*16 + NSASK_PKTTYP_DMOUFLG; 
Note: set mech to word, OPCOM expects it 
ARGLIST CNSASL_ARG3_DMOUFLG J = .FLAGS; Set dismount flags 


NSASARGLST_IMGNAM (ARGLIST CNSASL_ARG3S_IMGNAM_TM]); ! Set image name 


oe CNSAS ARG3_DEVNAM_ af = NSASK_ARG_MECH_DESCR*16 + NSASK_PKTTYP_DEVNAM; 
$GETOVI Bs Af = ; tan UNTEFN, 


ANAEL 
hg! > item LIS ' Obtain full device name 
ARGLIST len L “ARG “DEVNAR_ ist) = .DEV_LEN; | Set size of full device name 


ARGLIST CNSASL-ARGS_DEVNAM_PTR) = DEV_STR; ! Set full device name buffer address 
ARGLIST net ARG3_LOGNAM_TM] = NSASK_ARG MECH _DESCR*16 * NSASK_PKTTYP_LOGNAM; 
LNMB = .MT TLS$L_COGNAME J; ' Get address of LNM block 
IF .LNMB NEQ 0 ! If the LNM block all os 
THEN EGIN 

ARGLIST CNSASL_ARG3_LOGNAM_SIZ -LNMB CLNMBS$T Wi: ' Set size of logical name 

7+ al NSASL_ARG3_LOGNAM_PTR = (NMB CLNMBST_RAME !' Set logical name buffer address 
ELSE 

BEGIN 

anet 1st NSASL_ARG3_LOGNAM -$13} = 0; ' Set size of logical name as nuil 

PTR] = 0; ! Set logical name buffer address as null 


ARGLIST NSASL—ARG3~LOGNAM_ 


ARGLIST CNSASL_ARG3S_VOLNAM_TM] = NSASK_ARG ~fECH. DESCR*16 + WSheK PKTTYP_VOLNAM; 


vcB = He C Cost 8); ' Gét address of 
ancuisi NSASL tye VOLNAR 

ABEL OLE NETH tess edt te “vce CVCBST_VOLNAME)); ! Set size of volume name 
ARGLIST ASASL AR y VOLRAR.. PTR) = VCB CVCBST _VOLNAME J; i Set volume name buffer address 


1 

' If the volume is a member of a volume set, then 
: a. increment argument count 

: b. increment number of packets 

: c. set up volume set descriptor 


Be ee Oe ee Oe Fe Se we 


OD tk Ln a ss as 4 49 4 ss —* 4 
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18-3 ep-1984 AX-11 Bliss-32 v4.0- 
14- i 382 93; 33: 83 DISMOU.SR ReiD DISMOU B33 
63 ; ! 
95 IF (NOT .BBLOCK CucB Cu Bs DEVCHARI, DEVSV_FOR)) 
38 9 ; AND ( .VCB CVCBSW_RVN G0) 
. 7 i THEN 
639 95 4 a att NSASL_ARG_COUNT]) = .ARGLIST CHSAS ARG_C Count) + 3; ! Count vol-set pkt 
36 4 ST CNSASB_ARG_PKTNUM] = .ARGLIST CNSASB_ARG_P x Twn) +1; 
. 1 3 ‘ ARGU 3 yeast TUE SNAM_TM) = NSASK_ARG "Ae CHE SCR*16 + NSASK_PKTTYP_VOLSNAM; 
7 3 3 4 ARGLIST. NSABL AR VOL SN AM_S$17] = 
7 4 LAGE ; LENG neta BOY $_STROCNAME, RVT pavist. STRUCNAME ; ' Set size of vol-set name 
. 5 4 es RSASL_ARGS_VOLSNAM_PTR] = RVT CRVTST-STRUCNAMEJ; ! Set vol-set name buffer address 
7 
i : CALLG (ARGLIST, NSASEVENT_AUDIT); ! Call event audit routine 
at END; ! End of security auditing block 
at; 8 RETURN; ' Back to caller 
71 09 END; ! End of DISMOUNT_AUDIT 
BL 
040 0069C P.AAC: .WORD 
43 WORD 32 
00000 06A mY 
4 94/644 06A4 LONG 
000 06A8 el 
-EXTRN NSASGR_ALARMVEC 
-EXTRN NSAS$GR~ JOURNVEC 
~EXTRN WNSASEVENT_AUDIT 
-EXTRN NSASARGLST_IMGNAM 
O1FC 00000 DISMOUNT_AUDIT: 
“WORD Save R2,R3,R4,R5,R6,R7,RB 
3008889 G 09 9 MOVAB NSASGR_JOURNVEC, a8" 
G $e MOVAB NSASGRCAL ACARMVEC. R 
ce é VAB SP 
3 CLAL EV“LEN. 
06 AE 5 AF 1 8 mOVC3 67 P.AAC, ITEM_LIST 
Og AE 4 OA MOVAB DEV_STR, fem Listes 
¢ AE MOVAB DEV"LEN, ITEM“LIST+8 
56 000000006 D ii MOVL = nSGh é pce Rb 
9 27 =A EO 000 BBS H TR6) 
5 6 EO 000 BBS » NSASGR’ALARMVEC, 18 
68 1 i DC BBS a NSASGR~JOURNVEC, 1$ 
ie 
0050 8F 00 6E ao 90 2 D088 18: MOVES «#0, (SP), #0, #80, ARGLIST 
ie 
BO AD 10 i MOV. = 416, ARGL I 
84 AD 00020008 8F 00 00C MOVL Hh. 8th 7" ste 
04 7 Ab 3 f D0 BBC 
88 AD 4 § 0 B1SB2 
04 6 1 €1 00059 28: BEC an NSA a yen 3$ 


Pete Se Se Se 
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(12) 


2119 


aH 


2217 


3315 


2223 


9 


1 o 
1 $ 
Bs ap 1 8 5 1$82 #1, ARGLIST+8 
04 6 1 3$: Bc #1, NSASGR_JOURNVEC, 4$ 
BB AD é 1S82 #2, ARGLIST+ 
B9 AD 48: MOVB RGLIST+ 
BC AD 0001000F F D MOVL §551, ARGL IST +12 
CO OA 4 ac p MOVL FLAGS, ARGLIST+16 
, 0 Bg 00 i6 i it REARS ST” Ronan 
DO = AD irate g i MOVL We 149, ARGLIST+32 
— 7C¢ C CLRO = _ = (SP) 
7E 7¢ CLRO  —-_ = (SP) 
14 AE F PUSHAB ITEM_LIST 
7E 04 0009 CLRL 0s = (SPY 
08 aC 0D 0009 PUSHL CHANNEL 
1A 0D 0009 PUSHL 436 
000000006 00 08 FB 9A CALLS #8, SYSSGETOVIW 
D4 AD E p Al MOVL DEV_LEN, ARGLIST+36 
D8 AD 16 AE AS MOVAB DEY SiR. ARGLIST+4 
oc ap 0004000 BF D AA MOVL #262150, ARGLIST+44 
; 1 ac D B2 MOVL MTL, RO 
0 10 Aad D B6 MOVL 16(RO), LNMB 
oC 1 BA BEQL =s§ 
EO AD 11 AO 9A ¢ MOV7ZBL 17(LNMB), ARGLIST+48 
E4 AD = - 1 C MOVAB 1B(RO), ARGLIST+52 
03 11 000¢ BRB 6 
; AD 7C 000CB S$: CLRO ARGL IST +48 
E8 AD 000400 8F DO 000CB 6S: MOVL #262151, ARGLIST+56 
3¢ C AC 00 0000 MOVL B, R2 
4 4 A p 990 MOVL (A2), VCS 
14 AS 9F 000DB PUS (v¢Bs 
DD 000 PUSHL #12 
0000v CF FB OE CALLS #2, LABEL_LENGTH 
EC AD p £ MOVL RO. ARGLIST+6 
FO AD 46 =A 0€9 MOVAB ; (vce), ARGLIST+64 
28 38 COA OE BLBS (R2), 7$ 
0& A F TSTw  14(vCBS 
36 F BEQL i$ 
BO AD § F ADDL2 #3, ARGLIST 
9 Ad FB INCB ARGL I sT* 
F4 AD 000400 8 BF DO OOOFE MOVL #262152, ARGLIST+68 
5 a3 p 1 MOVL  32(VCB). R 
C A2 9F OO10A PUSHAB 12(RVT) 
DD 001 PUSHL #12 
0009v CF FB 10F CALLS #2, LABEL LENGTH 
f8 AD p 114 MOVL RO. ARGLIST+7 
FC AD of A2 9E 00118 MOV 12(RVT), ARGLIST+76 
000000006 0 BO AD fA 119 7$ CALLG ARGLIST, NSASEVENT_AUDIT 


3; Routine Size: 294 bytes, Routine Base: Z$DISMOUNT + O6AC 
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ROUTINE LABEL_LENGTH (STR_LENGTH, STR_TEXT) = 


——»— _» 


lee 
4 
FUNCTIONAL DESCRIPTION: 

ints routine will return the Length of a given string. 

Trailing blanks at the end of the string are not counted 
as part of the string. 

CALLING SEQUENCE: 
LABEL_LENGTH (ARG1, ARG2) 

INPUT PARAMETERS: 


ARG) : Input string Length 
ARG2 : Input string address 


IMPLICIT INPUTS: 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
' 
i 
i 
i 
i 
: None. 
i 
i 
i 
' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 


SONA MAE WN 9 OD NO UNE UN 9 OD NAME "OOOO St 


PUP PVPS SSID B® BS BS BS EE EE HAAN AIAOPPIPIPININININIDN 2 OO Oe 


Se pb be tt ee i i, ee ee ee | 


et st a et as ts a a es a a a a a — 9 = 2 ss 4 


RPO POPOPIPOPEPOPOPUPIPUIY 8 2 3 0 0 0 0 


: 1739 

3 ¢ OUTPUT PARAMETERS: 

; og None. 

; 44 IMPLICIT OUTPUTS: 

; r¢ None. 

; 48 ROUTINE VALUE: 

; ° None. 

; é SIDE EFFECTS: 

; & None. 

3 5 

ig Tn 

; BEGIN 

Wg 

; 61 6 STR_TEXT : REF VECTOR C,BYTE); ! Input string 

; $f 8 ¢ LOCAL 

3 3 PTR : LONG; ! Pointer to current char. 
; 66 ! Starting at the end of the string. decrement the string length 
3; 176 § ' until a nonblank character is found, or the beginning of the string 
3 708 ! is encountered. 

+ 1395 $$ 

> 1771 PTR = .STR_LENGTH; 

: 1772 WHILE (.PTR GTR OS AND (.STR_TEXT C.PTR=-1) EQL ASCII" *) DO 


ARF Geen cm 


51 04 AC 

OF 

50 1 08 Ag 
0 FF hyd 

3 

50 gf 
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0000 00000 LABEL_LENGTH: 
WORD 


AX=11 Blisg-32 V4.0-74 
DISMOU.SRCJDISMOU.B32; 


othing 
NGTH, PTR 


XT, PTR, RO 
, 32 


>” 5s 
‘ 
=m mg 


; Routine Size: 27 bytes, Routine Base: ZS$DISMOUNT + 07D2 
; 1777 % 1 
; A | 73 +1 END 
; 177 74 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
$GLOBALS NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL COM MOB TG «At Ents} 
7$01 SMOUNT 2029 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
wocecee= Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$D0UA28: (SYSt182118.132;1 18619 121 0 1000 00:01.8 
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BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:D1SMOU/OBJ=0B/J$:DISMOU MSRC$:D1SMOU/UPDATE=(ENH$:D1ISMOU) 
3 pize; | So: coe, + 71 data bytes 


a t aoe tey Min: sit " 
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ENTIAL .AND PROPRIETARY 


